;;;; Generated on 3/22/2021 at 17:54:20 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZBBCSD
  %ZBBCSD %%ZBDSQR %ZBDSQR %%ZCGESV %ZCGESV %%ZCPOSV %ZCPOSV %%ZDRSCL %ZDRSCL
  %%ZGBBRD %ZGBBRD %%ZGBCON %ZGBCON %%ZGBEQU %ZGBEQU %%ZGBEQUB %ZGBEQUB
  %%ZGBRFS %ZGBRFS %%ZGBRFSX %ZGBRFSX %%ZGBSV %ZGBSV %%ZGBSVX %ZGBSVX %%ZGBSVXX
  %ZGBSVXX %%ZGBTF2 %ZGBTF2 %%ZGBTRF %ZGBTRF %%ZGBTRS %ZGBTRS %%ZGEBAK %ZGEBAK
  %%ZGEBAL %ZGEBAL %%ZGEBD2 %ZGEBD2 %%ZGEBRD %ZGEBRD %%ZGECON %ZGECON %%ZGEEQU
  %ZGEEQU %%ZGEEQUB %ZGEEQUB %%ZGEES %ZGEES %%ZGEESX %ZGEESX %%ZGEEV %ZGEEV
  %%ZGEEVX %ZGEEVX %%ZGEHD2 %ZGEHD2 %%ZGEHRD %ZGEHRD %%ZGEJSV %ZGEJSV %%ZGELQ
  %ZGELQ %%ZGELQ2 %ZGELQ2 %%ZGELQF %ZGELQF %%ZGELQT %ZGELQT %%ZGELQT3 %ZGELQT3
  %%ZGELS %ZGELS %%ZGELSD %ZGELSD %%ZGELSS %ZGELSS %%ZGELSY %ZGELSY %%ZGEMLQ
  %ZGEMLQ %%ZGEMLQT %ZGEMLQT %%ZGEMQR %ZGEMQR %%ZGEMQRT %ZGEMQRT %%ZGEQL2
  %ZGEQL2 %%ZGEQLF %ZGEQLF %%ZGEQP3 %ZGEQP3 %%ZGEQR %ZGEQR %%ZGEQR2 %ZGEQR2
  %%ZGEQR2P %ZGEQR2P %%ZGEQRF %ZGEQRF %%ZGEQRFP %ZGEQRFP %%ZGEQRT %ZGEQRT
  %%ZGEQRT2 %ZGEQRT2 %%ZGEQRT3 %ZGEQRT3 %%ZGERFS %ZGERFS %%ZGERFSX %ZGERFSX
  %%ZGERQ2 %ZGERQ2 %%ZGERQF %ZGERQF %%ZGESC2 %ZGESC2 %%ZGESDD %ZGESDD %%ZGESV
  %ZGESV %%ZGESVD %ZGESVD %%ZGESVDQ %ZGESVDQ %%ZGESVDX %ZGESVDX %%ZGESVJ
  %ZGESVJ %%ZGESVX %ZGESVX %%ZGESVXX %ZGESVXX %%ZGETC2 %ZGETC2 %%ZGETF2 %ZGETF2
  %%ZGETRF %ZGETRF %%ZGETRF2 %ZGETRF2 %%ZGETRI %ZGETRI %%ZGETRS %ZGETRS
  %%ZGETSLS %ZGETSLS %%ZGGBAK %ZGGBAK %%ZGGBAL %ZGGBAL %%ZGGES %ZGGES %%ZGGES3
  %ZGGES3 %%ZGGESX %ZGGESX %%ZGGEV %ZGGEV %%ZGGEV3 %ZGGEV3 %%ZGGEVX %ZGGEVX
  %%ZGGGLM %ZGGGLM %%ZGGHD3 %ZGGHD3 %%ZGGHRD %ZGGHRD %%ZGGLSE %ZGGLSE %%ZGGQRF
  %ZGGQRF %%ZGGRQF %ZGGRQF %%ZGGSVD3 %ZGGSVD3 %%ZGGSVP3 %ZGGSVP3 %%ZGSVJ0
  %ZGSVJ0 %%ZGSVJ1 %ZGSVJ1 %%ZGTCON %ZGTCON %%ZGTRFS %ZGTRFS %%ZGTSV %ZGTSV
  %%ZGTSVX %ZGTSVX %%ZGTTRF %ZGTTRF %%ZGTTRS %ZGTTRS %%ZGTTS2 %ZGTTS2
  %%ZHB2ST_KERNELS %ZHB2ST_KERNELS %%ZHBEV %ZHBEV %%ZHBEV_2STAGE %ZHBEV_2STAGE
  %%ZHBEVD %ZHBEVD %%ZHBEVD_2STAGE %ZHBEVD_2STAGE %%ZHBEVX %ZHBEVX
  %%ZHBEVX_2STAGE %ZHBEVX_2STAGE %%ZHBGST %ZHBGST %%ZHBGV %ZHBGV %%ZHBGVD
  %ZHBGVD %%ZHBGVX %ZHBGVX %%ZHBTRD %ZHBTRD %%ZHECON %ZHECON %%ZHECON_3
  %ZHECON_3 %%ZHECON_ROOK %ZHECON_ROOK %%ZHEEQUB %ZHEEQUB %%ZHEEV %ZHEEV
  %%ZHEEV_2STAGE %ZHEEV_2STAGE %%ZHEEVD %ZHEEVD %%ZHEEVD_2STAGE %ZHEEVD_2STAGE
  %%ZHEEVR %ZHEEVR %%ZHEEVR_2STAGE %ZHEEVR_2STAGE %%ZHEEVX %ZHEEVX
  %%ZHEEVX_2STAGE %ZHEEVX_2STAGE %%ZHEGS2 %ZHEGS2 %%ZHEGST %ZHEGST %%ZHEGV
  %ZHEGV %%ZHEGV_2STAGE %ZHEGV_2STAGE %%ZHEGVD %ZHEGVD %%ZHEGVX %ZHEGVX
  %%ZHERFS %ZHERFS %%ZHERFSX %ZHERFSX %%ZHESV %ZHESV %%ZHESV_AA %ZHESV_AA
  %%ZHESV_AA_2STAGE %ZHESV_AA_2STAGE %%ZHESV_RK %ZHESV_RK %%ZHESV_ROOK
  %ZHESV_ROOK %%ZHESVX %ZHESVX %%ZHESVXX %ZHESVXX %%ZHESWAPR %ZHESWAPR %%ZHETD2
  %ZHETD2 %%ZHETF2 %ZHETF2 %%ZHETF2_RK %ZHETF2_RK %%ZHETF2_ROOK %ZHETF2_ROOK
  %%ZHETRD %ZHETRD %%ZHETRD_2STAGE %ZHETRD_2STAGE %%ZHETRD_HE2HB %ZHETRD_HE2HB
  %%ZHETRF %ZHETRF %%ZHETRF_AA %ZHETRF_AA %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE
  %%ZHETRF_RK %ZHETRF_RK %%ZHETRF_ROOK %ZHETRF_ROOK %%ZHETRI %ZHETRI %%ZHETRI2
  %ZHETRI2 %%ZHETRI2X %ZHETRI2X %%ZHETRI_3 %ZHETRI_3 %%ZHETRI_3X %ZHETRI_3X
  %%ZHETRI_ROOK %ZHETRI_ROOK %%ZHETRS %ZHETRS %%ZHETRS2 %ZHETRS2 %%ZHETRS_3
  %ZHETRS_3 %%ZHETRS_AA %ZHETRS_AA %%ZHETRS_AA_2STAGE %ZHETRS_AA_2STAGE
  %%ZHETRS_ROOK %ZHETRS_ROOK %%ZHFRK %ZHFRK %%ZHGEQZ %ZHGEQZ %%ZHPCON %ZHPCON
  %%ZHPEV %ZHPEV %%ZHPEVD %ZHPEVD %%ZHPEVX %ZHPEVX %%ZHPGST %ZHPGST %%ZHPGV
  %ZHPGV %%ZHPGVD %ZHPGVD %%ZHPGVX %ZHPGVX %%ZHPRFS %ZHPRFS %%ZHPSV %ZHPSV
  %%ZHPSVX %ZHPSVX %%ZHPTRD %ZHPTRD %%ZHPTRF %ZHPTRF %%ZHPTRI %ZHPTRI %%ZHPTRS
  %ZHPTRS %%ZHSEIN %ZHSEIN %%ZHSEQR %ZHSEQR %%ZLA_GBAMV %ZLA_GBAMV
  %%ZLA_GBRCOND_C %ZLA_GBRCOND_C %%ZLA_GBRCOND_X %ZLA_GBRCOND_X
  %%ZLA_GBRFSX_EXTENDED %ZLA_GBRFSX_EXTENDED %%ZLA_GBRPVGRW %ZLA_GBRPVGRW
  %%ZLA_GEAMV %ZLA_GEAMV %%ZLA_GERCOND_C %ZLA_GERCOND_C %%ZLA_GERCOND_X
  %ZLA_GERCOND_X %%ZLA_GERFSX_EXTENDED %ZLA_GERFSX_EXTENDED %%ZLA_GERPVGRW
  %ZLA_GERPVGRW %%ZLA_HEAMV %ZLA_HEAMV %%ZLA_HERCOND_C %ZLA_HERCOND_C
  %%ZLA_HERCOND_X %ZLA_HERCOND_X %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED
  %%ZLA_HERPVGRW %ZLA_HERPVGRW %%ZLA_LIN_BERR %ZLA_LIN_BERR %%ZLA_PORCOND_C
  %ZLA_PORCOND_C %%ZLA_PORCOND_X %ZLA_PORCOND_X %%ZLA_PORFSX_EXTENDED
  %ZLA_PORFSX_EXTENDED %%ZLA_PORPVGRW %ZLA_PORPVGRW %%ZLA_SYAMV %ZLA_SYAMV
  %%ZLA_SYRCOND_C %ZLA_SYRCOND_C %%ZLA_SYRCOND_X %ZLA_SYRCOND_X
  %%ZLA_SYRFSX_EXTENDED %ZLA_SYRFSX_EXTENDED %%ZLA_SYRPVGRW %ZLA_SYRPVGRW
  %%ZLA_WWADDW %ZLA_WWADDW %%ZLABRD %ZLABRD %%ZLACGV %ZLACGV %%ZLACN2 %ZLACN2
  %%ZLACON %ZLACON %%ZLACP2 %ZLACP2 %%ZLACPY %ZLACPY %%ZLACRM %ZLACRM %%ZLACRT
  %ZLACRT %%ZLADIV %ZLADIV %%ZLAED0 %ZLAED0 %%ZLAED7 %ZLAED7 %%ZLAED8 %ZLAED8
  %%ZLAEIN %ZLAEIN %%ZLAESY %ZLAESY %%ZLAEV2 %ZLAEV2 %%ZLAG2C %ZLAG2C %%ZLAGS2
  %ZLAGS2 %%ZLAGTM %ZLAGTM %%ZLAHEF %ZLAHEF %%ZLAHEF_AA %ZLAHEF_AA %%ZLAHEF_RK
  %ZLAHEF_RK %%ZLAHEF_ROOK %ZLAHEF_ROOK %%ZLAHQR %ZLAHQR %%ZLAHR2 %ZLAHR2
  %%ZLAIC1 %ZLAIC1 %%ZLALS0 %ZLALS0 %%ZLALSA %ZLALSA %%ZLALSD %ZLALSD
  %%ZLAMSWLQ %ZLAMSWLQ %%ZLAMTSQR %ZLAMTSQR %%ZLANGB %ZLANGB %%ZLANGE %ZLANGE
  %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE %%ZLANHF %ZLANHF %%ZLANHP
  %ZLANHP))

(CFFI:DEFCFUN ("xerbla_" %%XERBLA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SRNAME :STRING)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %XERBLA (SRNAME INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SRNAME)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF17470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%XERBLA SRNAME INFO-REF17470))))

(CFFI:DEFCFUN ("xerbla_array_" %%XERBLA_ARRAY :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SRNAME_ARRAY :POINTER)
  (SRNAME_LEN :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %XERBLA_ARRAY (SRNAME_ARRAY SRNAME_LEN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA_ARRAY)
                       (COMMON-LISP:TYPE COMMON-LISP:ARRAY SRNAME_ARRAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        SRNAME_LEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF17472 ':INT32)
                              (INFO-REF17473 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF17472 :INT32) SRNAME_LEN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17473 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF17471
                                             SRNAME_ARRAY))
      (%%XERBLA_ARRAY SRNAME_ARRAY-REF17471 SRNAME_LEN-REF17472
       INFO-REF17473))))

(CFFI:DEFCFUN ("zbbcsd_" %%ZBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (B11D :POINTER)
  (B11E :POINTER)
  (B12D :POINTER)
  (B12E :POINTER)
  (B21D :POINTER)
  (B21E :POINTER)
  (B22D :POINTER)
  (B22E :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZBBCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2
                    LDU2 V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D
                    B22E RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZBBCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B11D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B11E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B12D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B12E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B21D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B21E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B22D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B22E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17479 ':INT32) (P-REF17480 ':INT32)
                              (Q-REF17481 ':INT32) (LDU1-REF17485 ':INT32)
                              (LDU2-REF17487 ':INT32) (LDV1T-REF17489 ':INT32)
                              (LDV2T-REF17491 ':INT32)
                              (LRWORK-REF17501 ':INT32) (INFO-REF17502 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17479 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17480 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF17481 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF17485 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF17487 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF17489 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF17491 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17501 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17502 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF17482 THETA)
                                            (PHI-REF17483 PHI) (U1-REF17484 U1)
                                            (U2-REF17486 U2) (V1T-REF17488 V1T)
                                            (V2T-REF17490 V2T)
                                            (B11D-REF17492 B11D)
                                            (B11E-REF17493 B11E)
                                            (B12D-REF17494 B12D)
                                            (B12E-REF17495 B12E)
                                            (B21D-REF17496 B21D)
                                            (B21E-REF17497 B21E)
                                            (B22D-REF17498 B22D)
                                            (B22E-REF17499 B22E)
                                            (RWORK-REF17500 RWORK))
      (%%ZBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF17479 P-REF17480
       Q-REF17481 THETA-REF17482 PHI-REF17483 U1-REF17484 LDU1-REF17485
       U2-REF17486 LDU2-REF17487 V1T-REF17488 LDV1T-REF17489 V2T-REF17490
       LDV2T-REF17491 B11D-REF17492 B11E-REF17493 B12D-REF17494 B12E-REF17495
       B21D-REF17496 B21E-REF17497 B22D-REF17498 B22E-REF17499 RWORK-REF17500
       LRWORK-REF17501 INFO-REF17502))))

(CFFI:DEFCFUN ("zbdsqr_" %%ZBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZBDSQR
                   (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZBDSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17504 ':INT32) (NCVT-REF17505 ':INT32)
                              (NRU-REF17506 ':INT32) (NCC-REF17507 ':INT32)
                              (LDVT-REF17511 ':INT32) (LDU-REF17513 ':INT32)
                              (LDC-REF17515 ':INT32) (INFO-REF17517 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17504 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF17505 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF17506 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF17507 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF17511 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17513 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17515 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17517 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17508 D) (E-REF17509 E)
                                            (VT-REF17510 VT) (U-REF17512 U)
                                            (C-REF17514 C)
                                            (RWORK-REF17516 RWORK))
      (%%ZBDSQR UPLO N-REF17504 NCVT-REF17505 NRU-REF17506 NCC-REF17507
       D-REF17508 E-REF17509 VT-REF17510 LDVT-REF17511 U-REF17512 LDU-REF17513
       C-REF17514 LDC-REF17515 RWORK-REF17516 INFO-REF17517))))

(CFFI:DEFCFUN ("zcgesv_" %%ZCGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (SWORK :POINTER)
  (RWORK :POINTER)
  (ITER :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZCGESV
                   (N NRHS A LDA IPIV B LDB X LDX WORK SWORK RWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZCGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17518 ':INT32) (NRHS-REF17519 ':INT32)
                              (LDA-REF17521 ':INT32) (LDB-REF17524 ':INT32)
                              (LDX-REF17526 ':INT32) (ITER-REF17530 ':INT32)
                              (INFO-REF17531 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17518 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17519 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17521 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17524 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17526 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF17530 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17531 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17520 A) (IPIV-REF17522 IPIV)
                                            (B-REF17523 B) (X-REF17525 X)
                                            (WORK-REF17527 WORK)
                                            (SWORK-REF17528 SWORK)
                                            (RWORK-REF17529 RWORK))
      (%%ZCGESV N-REF17518 NRHS-REF17519 A-REF17520 LDA-REF17521 IPIV-REF17522
       B-REF17523 LDB-REF17524 X-REF17525 LDX-REF17526 WORK-REF17527
       SWORK-REF17528 RWORK-REF17529 ITER-REF17530 INFO-REF17531))))

(CFFI:DEFCFUN ("zcposv_" %%ZCPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (SWORK :POINTER)
  (RWORK :POINTER)
  (ITER :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZCPOSV
                   (UPLO N NRHS A LDA B LDB X LDX WORK SWORK RWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZCPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17533 ':INT32) (NRHS-REF17534 ':INT32)
                              (LDA-REF17536 ':INT32) (LDB-REF17538 ':INT32)
                              (LDX-REF17540 ':INT32) (ITER-REF17544 ':INT32)
                              (INFO-REF17545 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17533 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17534 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17536 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17538 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17540 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF17544 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17545 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17535 A) (B-REF17537 B)
                                            (X-REF17539 X) (WORK-REF17541 WORK)
                                            (SWORK-REF17542 SWORK)
                                            (RWORK-REF17543 RWORK))
      (%%ZCPOSV UPLO N-REF17533 NRHS-REF17534 A-REF17535 LDA-REF17536
       B-REF17537 LDB-REF17538 X-REF17539 LDX-REF17540 WORK-REF17541
       SWORK-REF17542 RWORK-REF17543 ITER-REF17544 INFO-REF17545))))

(CFFI:DEFCFUN ("zdrscl_" %%ZDRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZDRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDRSCL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17546 ':INT32) (SA-REF17547 ':DOUBLE)
                              (INCX-REF17549 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17546 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF17547 :DOUBLE) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF17549 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF17548 SX))
      (%%ZDRSCL N-REF17546 SA-REF17547 SX-REF17548 INCX-REF17549))))

(CFFI:DEFCFUN ("zgbbrd_" %%ZGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (NCC :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (PT :POINTER)
  (LDPT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBBRD
                   (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBBRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        PT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17551 ':INT32) (N-REF17552 ':INT32)
                              (NCC-REF17553 ':INT32) (KL-REF17554 ':INT32)
                              (KU-REF17555 ':INT32) (LDAB-REF17557 ':INT32)
                              (LDQ-REF17561 ':INT32) (LDPT-REF17563 ':INT32)
                              (LDC-REF17565 ':INT32) (INFO-REF17568 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17551 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17552 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF17553 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17554 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17555 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17557 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17561 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF17563 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17565 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17568 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17556 AB) (D-REF17558 D)
                                            (E-REF17559 E) (Q-REF17560 Q)
                                            (PT-REF17562 PT) (C-REF17564 C)
                                            (WORK-REF17566 WORK)
                                            (RWORK-REF17567 RWORK))
      (%%ZGBBRD VECT M-REF17551 N-REF17552 NCC-REF17553 KL-REF17554 KU-REF17555
       AB-REF17556 LDAB-REF17557 D-REF17558 E-REF17559 Q-REF17560 LDQ-REF17561
       PT-REF17562 LDPT-REF17563 C-REF17564 LDC-REF17565 WORK-REF17566
       RWORK-REF17567 INFO-REF17568))))

(CFFI:DEFCFUN ("zgbcon_" %%ZGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBCON
                   (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17570 ':INT32) (KL-REF17571 ':INT32)
                              (KU-REF17572 ':INT32) (LDAB-REF17574 ':INT32)
                              (ANORM-REF17576 ':DOUBLE)
                              (RCOND-REF17577 ':DOUBLE) (INFO-REF17580 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17570 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17571 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17572 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17574 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17576 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17577 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17580 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17573 AB)
                                            (IPIV-REF17575 IPIV)
                                            (WORK-REF17578 WORK)
                                            (RWORK-REF17579 RWORK))
      (%%ZGBCON NORM N-REF17570 KL-REF17571 KU-REF17572 AB-REF17573
       LDAB-REF17574 IPIV-REF17575 ANORM-REF17576 RCOND-REF17577 WORK-REF17578
       RWORK-REF17579 INFO-REF17580))))

(CFFI:DEFCFUN ("zgbequ_" %%ZGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17581 ':INT32) (N-REF17582 ':INT32)
                              (KL-REF17583 ':INT32) (KU-REF17584 ':INT32)
                              (LDAB-REF17586 ':INT32)
                              (ROWCND-REF17589 ':DOUBLE)
                              (COLCND-REF17590 ':DOUBLE)
                              (AMAX-REF17591 ':DOUBLE) (INFO-REF17592 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17581 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17582 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17583 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17584 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17586 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17589 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17590 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17591 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17592 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17585 AB) (R-REF17587 R)
                                            (C-REF17588 C))
      (%%ZGBEQU M-REF17581 N-REF17582 KL-REF17583 KU-REF17584 AB-REF17585
       LDAB-REF17586 R-REF17587 C-REF17588 ROWCND-REF17589 COLCND-REF17590
       AMAX-REF17591 INFO-REF17592))))

(CFFI:DEFCFUN ("zgbequb_" %%ZGBEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17593 ':INT32) (N-REF17594 ':INT32)
                              (KL-REF17595 ':INT32) (KU-REF17596 ':INT32)
                              (LDAB-REF17598 ':INT32)
                              (ROWCND-REF17601 ':DOUBLE)
                              (COLCND-REF17602 ':DOUBLE)
                              (AMAX-REF17603 ':DOUBLE) (INFO-REF17604 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17593 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17595 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17596 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17598 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17601 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17602 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17603 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17604 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17597 AB) (R-REF17599 R)
                                            (C-REF17600 C))
      (%%ZGBEQUB M-REF17593 N-REF17594 KL-REF17595 KU-REF17596 AB-REF17597
       LDAB-REF17598 R-REF17599 C-REF17600 ROWCND-REF17601 COLCND-REF17602
       AMAX-REF17603 INFO-REF17604))))

(CFFI:DEFCFUN ("zgbrfs_" %%ZGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBRFS
                   (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
                    BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17606 ':INT32) (KL-REF17607 ':INT32)
                              (KU-REF17608 ':INT32) (NRHS-REF17609 ':INT32)
                              (LDAB-REF17611 ':INT32) (LDAFB-REF17613 ':INT32)
                              (LDB-REF17616 ':INT32) (LDX-REF17618 ':INT32)
                              (INFO-REF17623 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17606 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17607 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17608 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17609 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17611 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17613 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17616 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17618 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17623 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17610 AB) (AFB-REF17612 AFB)
                                            (IPIV-REF17614 IPIV) (B-REF17615 B)
                                            (X-REF17617 X) (FERR-REF17619 FERR)
                                            (BERR-REF17620 BERR)
                                            (WORK-REF17621 WORK)
                                            (RWORK-REF17622 RWORK))
      (%%ZGBRFS TRANS N-REF17606 KL-REF17607 KU-REF17608 NRHS-REF17609
       AB-REF17610 LDAB-REF17611 AFB-REF17612 LDAFB-REF17613 IPIV-REF17614
       B-REF17615 LDB-REF17616 X-REF17617 LDX-REF17618 FERR-REF17619
       BERR-REF17620 WORK-REF17621 RWORK-REF17622 INFO-REF17623))))

(CFFI:DEFCFUN ("zgbrfsx_" %%ZGBRFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBRFSX
                   (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
                    LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17626 ':INT32) (KL-REF17627 ':INT32)
                              (KU-REF17628 ':INT32) (NRHS-REF17629 ':INT32)
                              (LDAB-REF17631 ':INT32) (LDAFB-REF17633 ':INT32)
                              (LDB-REF17638 ':INT32) (LDX-REF17640 ':INT32)
                              (RCOND-REF17641 ':DOUBLE)
                              (N_ERR_BNDS-REF17643 ':INT32)
                              (NPARAMS-REF17646 ':INT32)
                              (INFO-REF17650 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17626 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17627 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17628 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17629 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17631 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17633 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17638 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17640 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17641 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17643 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17646 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17650 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17630 AB) (AFB-REF17632 AFB)
                                            (IPIV-REF17634 IPIV) (R-REF17635 R)
                                            (C-REF17636 C) (B-REF17637 B)
                                            (X-REF17639 X) (BERR-REF17642 BERR)
                                            (ERR_BNDS_NORM-REF17644
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF17645
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF17647 PARAMS)
                                            (WORK-REF17648 WORK)
                                            (RWORK-REF17649 RWORK))
      (%%ZGBRFSX TRANS EQUED N-REF17626 KL-REF17627 KU-REF17628 NRHS-REF17629
       AB-REF17630 LDAB-REF17631 AFB-REF17632 LDAFB-REF17633 IPIV-REF17634
       R-REF17635 C-REF17636 B-REF17637 LDB-REF17638 X-REF17639 LDX-REF17640
       RCOND-REF17641 BERR-REF17642 N_ERR_BNDS-REF17643 ERR_BNDS_NORM-REF17644
       ERR_BNDS_COMP-REF17645 NPARAMS-REF17646 PARAMS-REF17647 WORK-REF17648
       RWORK-REF17649 INFO-REF17650))))

(CFFI:DEFCFUN ("zgbsv_" %%ZGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17651 ':INT32) (KL-REF17652 ':INT32)
                              (KU-REF17653 ':INT32) (NRHS-REF17654 ':INT32)
                              (LDAB-REF17656 ':INT32) (LDB-REF17659 ':INT32)
                              (INFO-REF17660 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17651 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17652 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17653 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17654 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17656 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17659 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17660 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17655 AB)
                                            (IPIV-REF17657 IPIV) (B-REF17658 B))
      (%%ZGBSV N-REF17651 KL-REF17652 KU-REF17653 NRHS-REF17654 AB-REF17655
       LDAB-REF17656 IPIV-REF17657 B-REF17658 LDB-REF17659 INFO-REF17660))))

(CFFI:DEFCFUN ("zgbsvx_" %%ZGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBSVX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17663 ':INT32) (KL-REF17664 ':INT32)
                              (KU-REF17665 ':INT32) (NRHS-REF17666 ':INT32)
                              (LDAB-REF17668 ':INT32) (LDAFB-REF17670 ':INT32)
                              (LDB-REF17676 ':INT32) (LDX-REF17678 ':INT32)
                              (RCOND-REF17679 ':DOUBLE) (INFO-REF17684 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17663 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17664 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17665 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17666 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17668 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17670 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17676 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17678 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17679 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17684 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17667 AB) (AFB-REF17669 AFB)
                                            (IPIV-REF17671 IPIV) (R-REF17673 R)
                                            (C-REF17674 C) (B-REF17675 B)
                                            (X-REF17677 X) (FERR-REF17680 FERR)
                                            (BERR-REF17681 BERR)
                                            (WORK-REF17682 WORK)
                                            (RWORK-REF17683 RWORK))
      (%%ZGBSVX FACT TRANS N-REF17663 KL-REF17664 KU-REF17665 NRHS-REF17666
       AB-REF17667 LDAB-REF17668 AFB-REF17669 LDAFB-REF17670 IPIV-REF17671
       EQUED R-REF17673 C-REF17674 B-REF17675 LDB-REF17676 X-REF17677
       LDX-REF17678 RCOND-REF17679 FERR-REF17680 BERR-REF17681 WORK-REF17682
       RWORK-REF17683 INFO-REF17684))))

(CFFI:DEFCFUN ("zgbsvxx_" %%ZGBSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBSVXX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
                    ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17687 ':INT32) (KL-REF17688 ':INT32)
                              (KU-REF17689 ':INT32) (NRHS-REF17690 ':INT32)
                              (LDAB-REF17692 ':INT32) (LDAFB-REF17694 ':INT32)
                              (LDB-REF17700 ':INT32) (LDX-REF17702 ':INT32)
                              (RCOND-REF17703 ':DOUBLE)
                              (RPVGRW-REF17704 ':DOUBLE)
                              (N_ERR_BNDS-REF17706 ':INT32)
                              (NPARAMS-REF17709 ':INT32)
                              (INFO-REF17713 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17687 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17688 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17689 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17690 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17692 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17694 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17700 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17702 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17703 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF17704 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17706 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17709 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17713 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17691 AB) (AFB-REF17693 AFB)
                                            (IPIV-REF17695 IPIV) (R-REF17697 R)
                                            (C-REF17698 C) (B-REF17699 B)
                                            (X-REF17701 X) (BERR-REF17705 BERR)
                                            (ERR_BNDS_NORM-REF17707
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF17708
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF17710 PARAMS)
                                            (WORK-REF17711 WORK)
                                            (RWORK-REF17712 RWORK))
      (%%ZGBSVXX FACT TRANS N-REF17687 KL-REF17688 KU-REF17689 NRHS-REF17690
       AB-REF17691 LDAB-REF17692 AFB-REF17693 LDAFB-REF17694 IPIV-REF17695
       EQUED R-REF17697 C-REF17698 B-REF17699 LDB-REF17700 X-REF17701
       LDX-REF17702 RCOND-REF17703 RPVGRW-REF17704 BERR-REF17705
       N_ERR_BNDS-REF17706 ERR_BNDS_NORM-REF17707 ERR_BNDS_COMP-REF17708
       NPARAMS-REF17709 PARAMS-REF17710 WORK-REF17711 RWORK-REF17712
       INFO-REF17713))))

(CFFI:DEFCFUN ("zgbtf2_" %%ZGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17714 ':INT32) (N-REF17715 ':INT32)
                              (KL-REF17716 ':INT32) (KU-REF17717 ':INT32)
                              (LDAB-REF17719 ':INT32) (INFO-REF17721 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17714 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17715 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17716 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17717 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17719 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17721 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17718 AB)
                                            (IPIV-REF17720 IPIV))
      (%%ZGBTF2 M-REF17714 N-REF17715 KL-REF17716 KU-REF17717 AB-REF17718
       LDAB-REF17719 IPIV-REF17720 INFO-REF17721))))

(CFFI:DEFCFUN ("zgbtrf_" %%ZGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17722 ':INT32) (N-REF17723 ':INT32)
                              (KL-REF17724 ':INT32) (KU-REF17725 ':INT32)
                              (LDAB-REF17727 ':INT32) (INFO-REF17729 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17722 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17723 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17724 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17725 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17727 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17729 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17726 AB)
                                            (IPIV-REF17728 IPIV))
      (%%ZGBTRF M-REF17722 N-REF17723 KL-REF17724 KU-REF17725 AB-REF17726
       LDAB-REF17727 IPIV-REF17728 INFO-REF17729))))

(CFFI:DEFCFUN ("zgbtrs_" %%ZGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17731 ':INT32) (KL-REF17732 ':INT32)
                              (KU-REF17733 ':INT32) (NRHS-REF17734 ':INT32)
                              (LDAB-REF17736 ':INT32) (LDB-REF17739 ':INT32)
                              (INFO-REF17740 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17732 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17733 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17734 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17736 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17739 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17740 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17735 AB)
                                            (IPIV-REF17737 IPIV) (B-REF17738 B))
      (%%ZGBTRS TRANS N-REF17731 KL-REF17732 KU-REF17733 NRHS-REF17734
       AB-REF17735 LDAB-REF17736 IPIV-REF17737 B-REF17738 LDB-REF17739
       INFO-REF17740))))

(CFFI:DEFCFUN ("zgebak_" %%ZGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17743 ':INT32) (ILO-REF17744 ':INT32)
                              (IHI-REF17745 ':INT32) (M-REF17747 ':INT32)
                              (LDV-REF17749 ':INT32) (INFO-REF17750 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17743 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17744 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17745 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17747 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17749 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17750 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF17746 SCALE)
                                            (V-REF17748 V))
      (%%ZGEBAK JOB SIDE N-REF17743 ILO-REF17744 IHI-REF17745 SCALE-REF17746
       M-REF17747 V-REF17748 LDV-REF17749 INFO-REF17750))))

(CFFI:DEFCFUN ("zgebal_" %%ZGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17752 ':INT32) (LDA-REF17754 ':INT32)
                              (ILO-REF17755 ':INT32) (IHI-REF17756 ':INT32)
                              (INFO-REF17758 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17752 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17754 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17755 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17756 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17758 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17753 A)
                                            (SCALE-REF17757 SCALE))
      (%%ZGEBAL JOB N-REF17752 A-REF17753 LDA-REF17754 ILO-REF17755
       IHI-REF17756 SCALE-REF17757 INFO-REF17758))))

(CFFI:DEFCFUN ("zgebd2_" %%ZGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17759 ':INT32) (N-REF17760 ':INT32)
                              (LDA-REF17762 ':INT32) (INFO-REF17768 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17759 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17760 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17762 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17768 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17761 A) (D-REF17763 D)
                                            (E-REF17764 E) (TAUQ-REF17765 TAUQ)
                                            (TAUP-REF17766 TAUP)
                                            (WORK-REF17767 WORK))
      (%%ZGEBD2 M-REF17759 N-REF17760 A-REF17761 LDA-REF17762 D-REF17763
       E-REF17764 TAUQ-REF17765 TAUP-REF17766 WORK-REF17767 INFO-REF17768))))

(CFFI:DEFCFUN ("zgebrd_" %%ZGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17769 ':INT32) (N-REF17770 ':INT32)
                              (LDA-REF17772 ':INT32) (LWORK-REF17778 ':INT32)
                              (INFO-REF17779 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17769 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17770 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17772 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17778 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17779 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17771 A) (D-REF17773 D)
                                            (E-REF17774 E) (TAUQ-REF17775 TAUQ)
                                            (TAUP-REF17776 TAUP)
                                            (WORK-REF17777 WORK))
      (%%ZGEBRD M-REF17769 N-REF17770 A-REF17771 LDA-REF17772 D-REF17773
       E-REF17774 TAUQ-REF17775 TAUP-REF17776 WORK-REF17777 LWORK-REF17778
       INFO-REF17779))))

(CFFI:DEFCFUN ("zgecon_" %%ZGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGECON (NORM N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17781 ':INT32) (LDA-REF17783 ':INT32)
                              (ANORM-REF17784 ':DOUBLE)
                              (RCOND-REF17785 ':DOUBLE) (INFO-REF17788 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17781 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17783 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17784 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17785 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17788 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17782 A) (WORK-REF17786 WORK)
                                            (RWORK-REF17787 RWORK))
      (%%ZGECON NORM N-REF17781 A-REF17782 LDA-REF17783 ANORM-REF17784
       RCOND-REF17785 WORK-REF17786 RWORK-REF17787 INFO-REF17788))))

(CFFI:DEFCFUN ("zgeequ_" %%ZGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17789 ':INT32) (N-REF17790 ':INT32)
                              (LDA-REF17792 ':INT32) (ROWCND-REF17795 ':DOUBLE)
                              (COLCND-REF17796 ':DOUBLE)
                              (AMAX-REF17797 ':DOUBLE) (INFO-REF17798 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17789 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17790 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17792 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17795 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17796 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17797 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17798 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17791 A) (R-REF17793 R)
                                            (C-REF17794 C))
      (%%ZGEEQU M-REF17789 N-REF17790 A-REF17791 LDA-REF17792 R-REF17793
       C-REF17794 ROWCND-REF17795 COLCND-REF17796 AMAX-REF17797
       INFO-REF17798))))

(CFFI:DEFCFUN ("zgeequb_" %%ZGEEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17799 ':INT32) (N-REF17800 ':INT32)
                              (LDA-REF17802 ':INT32) (ROWCND-REF17805 ':DOUBLE)
                              (COLCND-REF17806 ':DOUBLE)
                              (AMAX-REF17807 ':DOUBLE) (INFO-REF17808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17799 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17800 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17802 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17805 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17806 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17807 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17808 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17801 A) (R-REF17803 R)
                                            (C-REF17804 C))
      (%%ZGEEQUB M-REF17799 N-REF17800 A-REF17801 LDA-REF17802 R-REF17803
       C-REF17804 ROWCND-REF17805 COLCND-REF17806 AMAX-REF17807
       INFO-REF17808))))

(CFFI:DEFCFUN ("zgees_" %%ZGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (W :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEES
                   (JOBVS SORT SELECT N A LDA SDIM W VS LDVS WORK LWORK RWORK
                    BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF17811 ':INT32) (N-REF17812 ':INT32)
                              (LDA-REF17814 ':INT32) (SDIM-REF17815 ':INT32)
                              (LDVS-REF17818 ':INT32) (LWORK-REF17820 ':INT32)
                              (INFO-REF17823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF17811 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17812 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17814 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17815 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF17818 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17820 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17823 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17813 A) (W-REF17816 W)
                                            (VS-REF17817 VS)
                                            (WORK-REF17819 WORK)
                                            (RWORK-REF17821 RWORK)
                                            (BWORK-REF17822 BWORK))
      (%%ZGEES JOBVS SORT SELECT-REF17811 N-REF17812 A-REF17813 LDA-REF17814
       SDIM-REF17815 W-REF17816 VS-REF17817 LDVS-REF17818 WORK-REF17819
       LWORK-REF17820 RWORK-REF17821 BWORK-REF17822 INFO-REF17823))))

(CFFI:DEFCFUN ("zgeesx_" %%ZGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (W :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEESX
                   (JOBVS SORT SELECT SENSE N A LDA SDIM W VS LDVS RCONDE
                    RCONDV WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF17826 ':INT32) (N-REF17828 ':INT32)
                              (LDA-REF17830 ':INT32) (SDIM-REF17831 ':INT32)
                              (LDVS-REF17834 ':INT32)
                              (RCONDE-REF17835 ':DOUBLE)
                              (RCONDV-REF17836 ':DOUBLE)
                              (LWORK-REF17838 ':INT32) (INFO-REF17841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF17826 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17828 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17830 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17831 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF17834 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF17835 :DOUBLE) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF17836 :DOUBLE) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17838 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17841 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17829 A) (W-REF17832 W)
                                            (VS-REF17833 VS)
                                            (WORK-REF17837 WORK)
                                            (RWORK-REF17839 RWORK)
                                            (BWORK-REF17840 BWORK))
      (%%ZGEESX JOBVS SORT SELECT-REF17826 SENSE N-REF17828 A-REF17829
       LDA-REF17830 SDIM-REF17831 W-REF17832 VS-REF17833 LDVS-REF17834
       RCONDE-REF17835 RCONDV-REF17836 WORK-REF17837 LWORK-REF17838
       RWORK-REF17839 BWORK-REF17840 INFO-REF17841))))

(CFFI:DEFCFUN ("zgeev_" %%ZGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEEV
                   (JOBVL JOBVR N A LDA W VL LDVL VR LDVR WORK LWORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17844 ':INT32) (LDA-REF17846 ':INT32)
                              (LDVL-REF17849 ':INT32) (LDVR-REF17851 ':INT32)
                              (LWORK-REF17853 ':INT32) (INFO-REF17855 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17844 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17846 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17849 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17851 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17853 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17855 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17845 A) (W-REF17847 W)
                                            (VL-REF17848 VL) (VR-REF17850 VR)
                                            (WORK-REF17852 WORK)
                                            (RWORK-REF17854 RWORK))
      (%%ZGEEV JOBVL JOBVR N-REF17844 A-REF17845 LDA-REF17846 W-REF17847
       VL-REF17848 LDVL-REF17849 VR-REF17850 LDVR-REF17851 WORK-REF17852
       LWORK-REF17853 RWORK-REF17854 INFO-REF17855))))

(CFFI:DEFCFUN ("zgeevx_" %%ZGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (ABNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA W VL LDVL VR LDVR ILO IHI
                    SCALE ABNRM RCONDE RCONDV WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17860 ':INT32) (LDA-REF17862 ':INT32)
                              (LDVL-REF17865 ':INT32) (LDVR-REF17867 ':INT32)
                              (ILO-REF17868 ':INT32) (IHI-REF17869 ':INT32)
                              (ABNRM-REF17871 ':DOUBLE)
                              (LWORK-REF17875 ':INT32) (INFO-REF17877 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17860 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17862 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17865 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17867 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17868 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17869 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF17871 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17875 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17877 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17861 A) (W-REF17863 W)
                                            (VL-REF17864 VL) (VR-REF17866 VR)
                                            (SCALE-REF17870 SCALE)
                                            (RCONDE-REF17872 RCONDE)
                                            (RCONDV-REF17873 RCONDV)
                                            (WORK-REF17874 WORK)
                                            (RWORK-REF17876 RWORK))
      (%%ZGEEVX BALANC JOBVL JOBVR SENSE N-REF17860 A-REF17861 LDA-REF17862
       W-REF17863 VL-REF17864 LDVL-REF17865 VR-REF17866 LDVR-REF17867
       ILO-REF17868 IHI-REF17869 SCALE-REF17870 ABNRM-REF17871 RCONDE-REF17872
       RCONDV-REF17873 WORK-REF17874 LWORK-REF17875 RWORK-REF17876
       INFO-REF17877))))

(CFFI:DEFCFUN ("zgehd2_" %%ZGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEHD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17878 ':INT32) (ILO-REF17879 ':INT32)
                              (IHI-REF17880 ':INT32) (LDA-REF17882 ':INT32)
                              (INFO-REF17885 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17878 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17879 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17880 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17882 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17885 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17881 A) (TAU-REF17883 TAU)
                                            (WORK-REF17884 WORK))
      (%%ZGEHD2 N-REF17878 ILO-REF17879 IHI-REF17880 A-REF17881 LDA-REF17882
       TAU-REF17883 WORK-REF17884 INFO-REF17885))))

(CFFI:DEFCFUN ("zgehrd_" %%ZGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEHRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17886 ':INT32) (ILO-REF17887 ':INT32)
                              (IHI-REF17888 ':INT32) (LDA-REF17890 ':INT32)
                              (LWORK-REF17893 ':INT32) (INFO-REF17894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17886 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17887 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17888 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17890 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17893 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17889 A) (TAU-REF17891 TAU)
                                            (WORK-REF17892 WORK))
      (%%ZGEHRD N-REF17886 ILO-REF17887 IHI-REF17888 A-REF17889 LDA-REF17890
       TAU-REF17891 WORK-REF17892 LWORK-REF17893 INFO-REF17894))))

(CFFI:DEFCFUN ("zgejsv_" %%ZGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBR :STRING)
  (JOBT :STRING)
  (JOBP :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (CWORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEJSV
                   (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
                    CWORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEJSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17901 ':INT32) (N-REF17902 ':INT32)
                              (LDA-REF17904 ':INT32) (LDU-REF17907 ':INT32)
                              (LDV-REF17909 ':INT32) (LWORK-REF17911 ':INT32)
                              (LRWORK-REF17913 ':INT32) (INFO-REF17915 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17901 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17902 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17904 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17907 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17909 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17911 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17913 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17915 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17903 A) (SVA-REF17905 SVA)
                                            (U-REF17906 U) (V-REF17908 V)
                                            (CWORK-REF17910 CWORK)
                                            (RWORK-REF17912 RWORK)
                                            (IWORK-REF17914 IWORK))
      (%%ZGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF17901 N-REF17902 A-REF17903
       LDA-REF17904 SVA-REF17905 U-REF17906 LDU-REF17907 V-REF17908
       LDV-REF17909 CWORK-REF17910 LWORK-REF17911 RWORK-REF17912
       LRWORK-REF17913 IWORK-REF17914 INFO-REF17915))))

(CFFI:DEFCFUN ("zgelq_" %%ZGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17916 ':INT32) (N-REF17917 ':INT32)
                              (LDA-REF17919 ':INT32) (TSIZE-REF17921 ':INT32)
                              (LWORK-REF17923 ':INT32) (INFO-REF17924 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17916 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17917 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17919 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF17921 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17923 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17924 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17918 A) (T-REF17920 T)
                                            (WORK-REF17922 WORK))
      (%%ZGELQ M-REF17916 N-REF17917 A-REF17918 LDA-REF17919 T-REF17920
       TSIZE-REF17921 WORK-REF17922 LWORK-REF17923 INFO-REF17924))))

(CFFI:DEFCFUN ("zgelq2_" %%ZGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17925 ':INT32) (N-REF17926 ':INT32)
                              (LDA-REF17928 ':INT32) (INFO-REF17931 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17925 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17928 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17931 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17927 A) (TAU-REF17929 TAU)
                                            (WORK-REF17930 WORK))
      (%%ZGELQ2 M-REF17925 N-REF17926 A-REF17927 LDA-REF17928 TAU-REF17929
       WORK-REF17930 INFO-REF17931))))

(CFFI:DEFCFUN ("zgelqf_" %%ZGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17932 ':INT32) (N-REF17933 ':INT32)
                              (LDA-REF17935 ':INT32) (LWORK-REF17938 ':INT32)
                              (INFO-REF17939 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17932 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17933 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17935 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17938 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17939 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17934 A) (TAU-REF17936 TAU)
                                            (WORK-REF17937 WORK))
      (%%ZGELQF M-REF17932 N-REF17933 A-REF17934 LDA-REF17935 TAU-REF17936
       WORK-REF17937 LWORK-REF17938 INFO-REF17939))))

(CFFI:DEFCFUN ("zgelqt_" %%ZGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17940 ':INT32) (N-REF17941 ':INT32)
                              (MB-REF17942 ':INT32) (LDA-REF17944 ':INT32)
                              (LDT-REF17946 ':INT32) (INFO-REF17948 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17940 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17941 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17942 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17944 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17946 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17948 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17943 A) (T-REF17945 T)
                                            (WORK-REF17947 WORK))
      (%%ZGELQT M-REF17940 N-REF17941 MB-REF17942 A-REF17943 LDA-REF17944
       T-REF17945 LDT-REF17946 WORK-REF17947 INFO-REF17948))))

(CFFI:DEFCFUN ("zgelqt3_" %%ZGELQT3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17949 ':INT32) (N-REF17950 ':INT32)
                              (LDA-REF17952 ':INT32) (LDT-REF17954 ':INT32)
                              (INFO-REF17955 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17949 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17950 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17952 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17954 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17955 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17951 A) (T-REF17953 T))
      (%%ZGELQT3 M-REF17949 N-REF17950 A-REF17951 LDA-REF17952 T-REF17953
       LDT-REF17954 INFO-REF17955))))

(CFFI:DEFCFUN ("zgels_" %%ZGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17957 ':INT32) (N-REF17958 ':INT32)
                              (NRHS-REF17959 ':INT32) (LDA-REF17961 ':INT32)
                              (LDB-REF17963 ':INT32) (LWORK-REF17965 ':INT32)
                              (INFO-REF17966 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17957 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17958 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17959 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17961 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17963 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17965 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17966 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17960 A) (B-REF17962 B)
                                            (WORK-REF17964 WORK))
      (%%ZGELS TRANS M-REF17957 N-REF17958 NRHS-REF17959 A-REF17960
       LDA-REF17961 B-REF17962 LDB-REF17963 WORK-REF17964 LWORK-REF17965
       INFO-REF17966))))

(CFFI:DEFCFUN ("zgelsd_" %%ZGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELSD
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17967 ':INT32) (N-REF17968 ':INT32)
                              (NRHS-REF17969 ':INT32) (LDA-REF17971 ':INT32)
                              (LDB-REF17973 ':INT32) (RCOND-REF17975 ':DOUBLE)
                              (RANK-REF17976 ':INT32) (LWORK-REF17978 ':INT32)
                              (INFO-REF17981 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17967 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17968 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17969 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17971 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17973 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17975 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17976 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17978 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17981 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17970 A) (B-REF17972 B)
                                            (S-REF17974 S) (WORK-REF17977 WORK)
                                            (RWORK-REF17979 RWORK)
                                            (IWORK-REF17980 IWORK))
      (%%ZGELSD M-REF17967 N-REF17968 NRHS-REF17969 A-REF17970 LDA-REF17971
       B-REF17972 LDB-REF17973 S-REF17974 RCOND-REF17975 RANK-REF17976
       WORK-REF17977 LWORK-REF17978 RWORK-REF17979 IWORK-REF17980
       INFO-REF17981))))

(CFFI:DEFCFUN ("zgelss_" %%ZGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELSS
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17982 ':INT32) (N-REF17983 ':INT32)
                              (NRHS-REF17984 ':INT32) (LDA-REF17986 ':INT32)
                              (LDB-REF17988 ':INT32) (RCOND-REF17990 ':DOUBLE)
                              (RANK-REF17991 ':INT32) (LWORK-REF17993 ':INT32)
                              (INFO-REF17995 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17982 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17983 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17984 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17986 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17988 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17990 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17991 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17993 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17995 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17985 A) (B-REF17987 B)
                                            (S-REF17989 S) (WORK-REF17992 WORK)
                                            (RWORK-REF17994 RWORK))
      (%%ZGELSS M-REF17982 N-REF17983 NRHS-REF17984 A-REF17985 LDA-REF17986
       B-REF17987 LDB-REF17988 S-REF17989 RCOND-REF17990 RANK-REF17991
       WORK-REF17992 LWORK-REF17993 RWORK-REF17994 INFO-REF17995))))

(CFFI:DEFCFUN ("zgelsy_" %%ZGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (JPVT :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELSY
                   (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17996 ':INT32) (N-REF17997 ':INT32)
                              (NRHS-REF17998 ':INT32) (LDA-REF18000 ':INT32)
                              (LDB-REF18002 ':INT32) (RCOND-REF18004 ':DOUBLE)
                              (RANK-REF18005 ':INT32) (LWORK-REF18007 ':INT32)
                              (INFO-REF18009 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17996 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17997 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17998 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18000 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18002 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18004 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF18005 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18007 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18009 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17999 A) (B-REF18001 B)
                                            (JPVT-REF18003 JPVT)
                                            (WORK-REF18006 WORK)
                                            (RWORK-REF18008 RWORK))
      (%%ZGELSY M-REF17996 N-REF17997 NRHS-REF17998 A-REF17999 LDA-REF18000
       B-REF18001 LDB-REF18002 JPVT-REF18003 RCOND-REF18004 RANK-REF18005
       WORK-REF18006 LWORK-REF18007 RWORK-REF18008 INFO-REF18009))))

(CFFI:DEFCFUN ("zgemlq_" %%ZGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEMLQ
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18012 ':INT32) (N-REF18013 ':INT32)
                              (K-REF18014 ':INT32) (LDA-REF18016 ':INT32)
                              (TSIZE-REF18018 ':INT32) (LDC-REF18020 ':INT32)
                              (LWORK-REF18022 ':INT32) (INFO-REF18023 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18012 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18013 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18014 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18016 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18018 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18020 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18022 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18023 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18015 A) (T-REF18017 T)
                                            (C-REF18019 C) (WORK-REF18021 WORK))
      (%%ZGEMLQ SIDE TRANS M-REF18012 N-REF18013 K-REF18014 A-REF18015
       LDA-REF18016 T-REF18017 TSIZE-REF18018 C-REF18019 LDC-REF18020
       WORK-REF18021 LWORK-REF18022 INFO-REF18023))))

(CFFI:DEFCFUN ("zgemlqt_" %%ZGEMLQT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18026 ':INT32) (N-REF18027 ':INT32)
                              (K-REF18028 ':INT32) (MB-REF18029 ':INT32)
                              (LDV-REF18031 ':INT32) (LDT-REF18033 ':INT32)
                              (LDC-REF18035 ':INT32) (INFO-REF18037 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18026 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18027 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18028 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF18029 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18031 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18033 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18035 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18037 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18030 V) (T-REF18032 T)
                                            (C-REF18034 C) (WORK-REF18036 WORK))
      (%%ZGEMLQT SIDE TRANS M-REF18026 N-REF18027 K-REF18028 MB-REF18029
       V-REF18030 LDV-REF18031 T-REF18032 LDT-REF18033 C-REF18034 LDC-REF18035
       WORK-REF18036 INFO-REF18037))))

(CFFI:DEFCFUN ("zgemqr_" %%ZGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEMQR
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18040 ':INT32) (N-REF18041 ':INT32)
                              (K-REF18042 ':INT32) (LDA-REF18044 ':INT32)
                              (TSIZE-REF18046 ':INT32) (LDC-REF18048 ':INT32)
                              (LWORK-REF18050 ':INT32) (INFO-REF18051 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18040 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18041 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18042 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18044 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18046 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18048 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18050 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18051 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18043 A) (T-REF18045 T)
                                            (C-REF18047 C) (WORK-REF18049 WORK))
      (%%ZGEMQR SIDE TRANS M-REF18040 N-REF18041 K-REF18042 A-REF18043
       LDA-REF18044 T-REF18045 TSIZE-REF18046 C-REF18047 LDC-REF18048
       WORK-REF18049 LWORK-REF18050 INFO-REF18051))))

(CFFI:DEFCFUN ("zgemqrt_" %%ZGEMQRT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18054 ':INT32) (N-REF18055 ':INT32)
                              (K-REF18056 ':INT32) (NB-REF18057 ':INT32)
                              (LDV-REF18059 ':INT32) (LDT-REF18061 ':INT32)
                              (LDC-REF18063 ':INT32) (INFO-REF18065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18054 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18055 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18056 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18057 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18059 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18061 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18063 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18058 V) (T-REF18060 T)
                                            (C-REF18062 C) (WORK-REF18064 WORK))
      (%%ZGEMQRT SIDE TRANS M-REF18054 N-REF18055 K-REF18056 NB-REF18057
       V-REF18058 LDV-REF18059 T-REF18060 LDT-REF18061 C-REF18062 LDC-REF18063
       WORK-REF18064 INFO-REF18065))))

(CFFI:DEFCFUN ("zgeql2_" %%ZGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18066 ':INT32) (N-REF18067 ':INT32)
                              (LDA-REF18069 ':INT32) (INFO-REF18072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18066 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18067 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18069 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18068 A) (TAU-REF18070 TAU)
                                            (WORK-REF18071 WORK))
      (%%ZGEQL2 M-REF18066 N-REF18067 A-REF18068 LDA-REF18069 TAU-REF18070
       WORK-REF18071 INFO-REF18072))))

(CFFI:DEFCFUN ("zgeqlf_" %%ZGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQLF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18073 ':INT32) (N-REF18074 ':INT32)
                              (LDA-REF18076 ':INT32) (LWORK-REF18079 ':INT32)
                              (INFO-REF18080 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18073 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18074 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18076 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18079 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18080 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18075 A) (TAU-REF18077 TAU)
                                            (WORK-REF18078 WORK))
      (%%ZGEQLF M-REF18073 N-REF18074 A-REF18075 LDA-REF18076 TAU-REF18077
       WORK-REF18078 LWORK-REF18079 INFO-REF18080))))

(CFFI:DEFCFUN ("zgeqp3_" %%ZGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQP3 (M N A LDA JPVT TAU WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQP3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18081 ':INT32) (N-REF18082 ':INT32)
                              (LDA-REF18084 ':INT32) (LWORK-REF18088 ':INT32)
                              (INFO-REF18090 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18081 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18082 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18084 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18088 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18090 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18083 A) (JPVT-REF18085 JPVT)
                                            (TAU-REF18086 TAU)
                                            (WORK-REF18087 WORK)
                                            (RWORK-REF18089 RWORK))
      (%%ZGEQP3 M-REF18081 N-REF18082 A-REF18083 LDA-REF18084 JPVT-REF18085
       TAU-REF18086 WORK-REF18087 LWORK-REF18088 RWORK-REF18089
       INFO-REF18090))))

(CFFI:DEFCFUN ("zgeqr_" %%ZGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18091 ':INT32) (N-REF18092 ':INT32)
                              (LDA-REF18094 ':INT32) (TSIZE-REF18096 ':INT32)
                              (LWORK-REF18098 ':INT32) (INFO-REF18099 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18091 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18092 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18094 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18096 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18098 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18099 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18093 A) (T-REF18095 T)
                                            (WORK-REF18097 WORK))
      (%%ZGEQR M-REF18091 N-REF18092 A-REF18093 LDA-REF18094 T-REF18095
       TSIZE-REF18096 WORK-REF18097 LWORK-REF18098 INFO-REF18099))))

(CFFI:DEFCFUN ("zgeqr2_" %%ZGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18100 ':INT32) (N-REF18101 ':INT32)
                              (LDA-REF18103 ':INT32) (INFO-REF18106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18100 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18103 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18102 A) (TAU-REF18104 TAU)
                                            (WORK-REF18105 WORK))
      (%%ZGEQR2 M-REF18100 N-REF18101 A-REF18102 LDA-REF18103 TAU-REF18104
       WORK-REF18105 INFO-REF18106))))

(CFFI:DEFCFUN ("zgeqr2p_" %%ZGEQR2P :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR2P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18107 ':INT32) (N-REF18108 ':INT32)
                              (LDA-REF18110 ':INT32) (INFO-REF18113 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18107 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18110 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18113 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18109 A) (TAU-REF18111 TAU)
                                            (WORK-REF18112 WORK))
      (%%ZGEQR2P M-REF18107 N-REF18108 A-REF18109 LDA-REF18110 TAU-REF18111
       WORK-REF18112 INFO-REF18113))))

(CFFI:DEFCFUN ("zgeqrf_" %%ZGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18114 ':INT32) (N-REF18115 ':INT32)
                              (LDA-REF18117 ':INT32) (LWORK-REF18120 ':INT32)
                              (INFO-REF18121 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18114 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18115 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18117 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18120 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18121 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18116 A) (TAU-REF18118 TAU)
                                            (WORK-REF18119 WORK))
      (%%ZGEQRF M-REF18114 N-REF18115 A-REF18116 LDA-REF18117 TAU-REF18118
       WORK-REF18119 LWORK-REF18120 INFO-REF18121))))

(CFFI:DEFCFUN ("zgeqrfp_" %%ZGEQRFP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRFP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18122 ':INT32) (N-REF18123 ':INT32)
                              (LDA-REF18125 ':INT32) (LWORK-REF18128 ':INT32)
                              (INFO-REF18129 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18122 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18123 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18125 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18128 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18129 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18124 A) (TAU-REF18126 TAU)
                                            (WORK-REF18127 WORK))
      (%%ZGEQRFP M-REF18122 N-REF18123 A-REF18124 LDA-REF18125 TAU-REF18126
       WORK-REF18127 LWORK-REF18128 INFO-REF18129))))

(CFFI:DEFCFUN ("zgeqrt_" %%ZGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18130 ':INT32) (N-REF18131 ':INT32)
                              (NB-REF18132 ':INT32) (LDA-REF18134 ':INT32)
                              (LDT-REF18136 ':INT32) (INFO-REF18138 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18130 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18132 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18134 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18136 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18138 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18133 A) (T-REF18135 T)
                                            (WORK-REF18137 WORK))
      (%%ZGEQRT M-REF18130 N-REF18131 NB-REF18132 A-REF18133 LDA-REF18134
       T-REF18135 LDT-REF18136 WORK-REF18137 INFO-REF18138))))

(CFFI:DEFCFUN ("zgeqrt2_" %%ZGEQRT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18139 ':INT32) (N-REF18140 ':INT32)
                              (LDA-REF18142 ':INT32) (LDT-REF18144 ':INT32)
                              (INFO-REF18145 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18139 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18142 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18144 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18145 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18141 A) (T-REF18143 T))
      (%%ZGEQRT2 M-REF18139 N-REF18140 A-REF18141 LDA-REF18142 T-REF18143
       LDT-REF18144 INFO-REF18145))))

(CFFI:DEFCFUN ("zgeqrt3_" %%ZGEQRT3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18146 ':INT32) (N-REF18147 ':INT32)
                              (LDA-REF18149 ':INT32) (LDT-REF18151 ':INT32)
                              (INFO-REF18152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18146 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18149 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18151 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18148 A) (T-REF18150 T))
      (%%ZGEQRT3 M-REF18146 N-REF18147 A-REF18148 LDA-REF18149 T-REF18150
       LDT-REF18151 INFO-REF18152))))

(CFFI:DEFCFUN ("zgerfs_" %%ZGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGERFS
                   (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18154 ':INT32) (NRHS-REF18155 ':INT32)
                              (LDA-REF18157 ':INT32) (LDAF-REF18159 ':INT32)
                              (LDB-REF18162 ':INT32) (LDX-REF18164 ':INT32)
                              (INFO-REF18169 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18155 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18157 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18159 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18162 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18164 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18169 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18156 A) (AF-REF18158 AF)
                                            (IPIV-REF18160 IPIV) (B-REF18161 B)
                                            (X-REF18163 X) (FERR-REF18165 FERR)
                                            (BERR-REF18166 BERR)
                                            (WORK-REF18167 WORK)
                                            (RWORK-REF18168 RWORK))
      (%%ZGERFS TRANS N-REF18154 NRHS-REF18155 A-REF18156 LDA-REF18157
       AF-REF18158 LDAF-REF18159 IPIV-REF18160 B-REF18161 LDB-REF18162
       X-REF18163 LDX-REF18164 FERR-REF18165 BERR-REF18166 WORK-REF18167
       RWORK-REF18168 INFO-REF18169))))

(CFFI:DEFCFUN ("zgerfsx_" %%ZGERFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGERFSX
                   (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18172 ':INT32) (NRHS-REF18173 ':INT32)
                              (LDA-REF18175 ':INT32) (LDAF-REF18177 ':INT32)
                              (LDB-REF18182 ':INT32) (LDX-REF18184 ':INT32)
                              (RCOND-REF18185 ':DOUBLE)
                              (N_ERR_BNDS-REF18187 ':INT32)
                              (NPARAMS-REF18190 ':INT32)
                              (INFO-REF18194 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18172 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18173 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18175 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18177 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18182 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18184 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18185 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18187 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18190 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18194 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18174 A) (AF-REF18176 AF)
                                            (IPIV-REF18178 IPIV) (R-REF18179 R)
                                            (C-REF18180 C) (B-REF18181 B)
                                            (X-REF18183 X) (BERR-REF18186 BERR)
                                            (ERR_BNDS_NORM-REF18188
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF18189
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF18191 PARAMS)
                                            (WORK-REF18192 WORK)
                                            (RWORK-REF18193 RWORK))
      (%%ZGERFSX TRANS EQUED N-REF18172 NRHS-REF18173 A-REF18174 LDA-REF18175
       AF-REF18176 LDAF-REF18177 IPIV-REF18178 R-REF18179 C-REF18180 B-REF18181
       LDB-REF18182 X-REF18183 LDX-REF18184 RCOND-REF18185 BERR-REF18186
       N_ERR_BNDS-REF18187 ERR_BNDS_NORM-REF18188 ERR_BNDS_COMP-REF18189
       NPARAMS-REF18190 PARAMS-REF18191 WORK-REF18192 RWORK-REF18193
       INFO-REF18194))))

(CFFI:DEFCFUN ("zgerq2_" %%ZGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18195 ':INT32) (N-REF18196 ':INT32)
                              (LDA-REF18198 ':INT32) (INFO-REF18201 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18195 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18196 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18198 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18201 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18197 A) (TAU-REF18199 TAU)
                                            (WORK-REF18200 WORK))
      (%%ZGERQ2 M-REF18195 N-REF18196 A-REF18197 LDA-REF18198 TAU-REF18199
       WORK-REF18200 INFO-REF18201))))

(CFFI:DEFCFUN ("zgerqf_" %%ZGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18202 ':INT32) (N-REF18203 ':INT32)
                              (LDA-REF18205 ':INT32) (LWORK-REF18208 ':INT32)
                              (INFO-REF18209 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18202 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18203 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18205 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18208 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18209 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18204 A) (TAU-REF18206 TAU)
                                            (WORK-REF18207 WORK))
      (%%ZGERQF M-REF18202 N-REF18203 A-REF18204 LDA-REF18205 TAU-REF18206
       WORK-REF18207 LWORK-REF18208 INFO-REF18209))))

(CFFI:DEFCFUN ("zgesc2_" %%ZGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RHS :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (SCALE :POINTER))

(COMMON-LISP:DEFUN %ZGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18210 ':INT32) (LDA-REF18212 ':INT32)
                              (SCALE-REF18216 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18210 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18212 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF18216 :DOUBLE) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18211 A) (RHS-REF18213 RHS)
                                            (IPIV-REF18214 IPIV)
                                            (JPIV-REF18215 JPIV))
      (%%ZGESC2 N-REF18210 A-REF18211 LDA-REF18212 RHS-REF18213 IPIV-REF18214
       JPIV-REF18215 SCALE-REF18216))))

(CFFI:DEFCFUN ("zgesdd_" %%ZGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESDD
                   (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESDD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18218 ':INT32) (N-REF18219 ':INT32)
                              (LDA-REF18221 ':INT32) (LDU-REF18224 ':INT32)
                              (LDVT-REF18226 ':INT32) (LWORK-REF18228 ':INT32)
                              (INFO-REF18231 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18218 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18219 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18224 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18226 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18228 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18231 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18220 A) (S-REF18222 S)
                                            (U-REF18223 U) (VT-REF18225 VT)
                                            (WORK-REF18227 WORK)
                                            (RWORK-REF18229 RWORK)
                                            (IWORK-REF18230 IWORK))
      (%%ZGESDD JOBZ M-REF18218 N-REF18219 A-REF18220 LDA-REF18221 S-REF18222
       U-REF18223 LDU-REF18224 VT-REF18225 LDVT-REF18226 WORK-REF18227
       LWORK-REF18228 RWORK-REF18229 IWORK-REF18230 INFO-REF18231))))

(CFFI:DEFCFUN ("zgesv_" %%ZGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18232 ':INT32) (NRHS-REF18233 ':INT32)
                              (LDA-REF18235 ':INT32) (LDB-REF18238 ':INT32)
                              (INFO-REF18239 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18233 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18235 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18238 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18239 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18234 A) (IPIV-REF18236 IPIV)
                                            (B-REF18237 B))
      (%%ZGESV N-REF18232 NRHS-REF18233 A-REF18234 LDA-REF18235 IPIV-REF18236
       B-REF18237 LDB-REF18238 INFO-REF18239))))

(CFFI:DEFCFUN ("zgesvd_" %%ZGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVD
                   (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18242 ':INT32) (N-REF18243 ':INT32)
                              (LDA-REF18245 ':INT32) (LDU-REF18248 ':INT32)
                              (LDVT-REF18250 ':INT32) (LWORK-REF18252 ':INT32)
                              (INFO-REF18254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18242 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18243 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18245 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18248 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18250 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18252 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18254 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18244 A) (S-REF18246 S)
                                            (U-REF18247 U) (VT-REF18249 VT)
                                            (WORK-REF18251 WORK)
                                            (RWORK-REF18253 RWORK))
      (%%ZGESVD JOBU JOBVT M-REF18242 N-REF18243 A-REF18244 LDA-REF18245
       S-REF18246 U-REF18247 LDU-REF18248 VT-REF18249 LDVT-REF18250
       WORK-REF18251 LWORK-REF18252 RWORK-REF18253 INFO-REF18254))))

(CFFI:DEFCFUN ("zgesvdq_" %%ZGESVDQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBP :STRING)
  (JOBR :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NUMRANK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (CWORK :POINTER)
  (LCWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVDQ
                   (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
                    IWORK LIWORK CWORK LCWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18260 ':INT32) (N-REF18261 ':INT32)
                              (LDA-REF18263 ':INT32) (LDU-REF18266 ':INT32)
                              (LDV-REF18268 ':INT32) (NUMRANK-REF18269 ':INT32)
                              (LIWORK-REF18271 ':INT32)
                              (LCWORK-REF18273 ':INT32)
                              (LRWORK-REF18275 ':INT32) (INFO-REF18276 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18260 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18261 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18263 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18266 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18268 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF18269 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18271 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF18273 :INT32) LCWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18275 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18276 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18262 A) (S-REF18264 S)
                                            (U-REF18265 U) (V-REF18267 V)
                                            (IWORK-REF18270 IWORK)
                                            (CWORK-REF18272 CWORK)
                                            (RWORK-REF18274 RWORK))
      (%%ZGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF18260 N-REF18261 A-REF18262
       LDA-REF18263 S-REF18264 U-REF18265 LDU-REF18266 V-REF18267 LDV-REF18268
       NUMRANK-REF18269 IWORK-REF18270 LIWORK-REF18271 CWORK-REF18272
       LCWORK-REF18273 RWORK-REF18274 LRWORK-REF18275 INFO-REF18276))))

(CFFI:DEFCFUN ("zgesvdx_" %%ZGESVDX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (RANGE :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVDX
                   (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
                    WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18280 ':INT32) (N-REF18281 ':INT32)
                              (LDA-REF18283 ':INT32) (VL-REF18284 ':DOUBLE)
                              (VU-REF18285 ':DOUBLE) (IL-REF18286 ':INT32)
                              (IU-REF18287 ':INT32) (NS-REF18288 ':INT32)
                              (LDU-REF18291 ':INT32) (LDVT-REF18293 ':INT32)
                              (LWORK-REF18295 ':INT32) (INFO-REF18298 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18280 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18281 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18283 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18284 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18285 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18286 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18287 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF18288 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18291 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18293 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18295 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18298 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18282 A) (S-REF18289 S)
                                            (U-REF18290 U) (VT-REF18292 VT)
                                            (WORK-REF18294 WORK)
                                            (RWORK-REF18296 RWORK)
                                            (IWORK-REF18297 IWORK))
      (%%ZGESVDX JOBU JOBVT RANGE M-REF18280 N-REF18281 A-REF18282 LDA-REF18283
       VL-REF18284 VU-REF18285 IL-REF18286 IU-REF18287 NS-REF18288 S-REF18289
       U-REF18290 LDU-REF18291 VT-REF18292 LDVT-REF18293 WORK-REF18294
       LWORK-REF18295 RWORK-REF18296 IWORK-REF18297 INFO-REF18298))))

(CFFI:DEFCFUN ("zgesvj_" %%ZGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (CWORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVJ
                   (JOBA JOBU JOBV M N A LDA SVA MV V LDV CWORK LWORK RWORK
                    LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVJ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18302 ':INT32) (N-REF18303 ':INT32)
                              (LDA-REF18305 ':INT32) (MV-REF18307 ':INT32)
                              (LDV-REF18309 ':INT32) (LWORK-REF18311 ':INT32)
                              (LRWORK-REF18313 ':INT32) (INFO-REF18314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18302 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18303 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18305 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18307 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18309 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18311 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18313 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18304 A) (SVA-REF18306 SVA)
                                            (V-REF18308 V)
                                            (CWORK-REF18310 CWORK)
                                            (RWORK-REF18312 RWORK))
      (%%ZGESVJ JOBA JOBU JOBV M-REF18302 N-REF18303 A-REF18304 LDA-REF18305
       SVA-REF18306 MV-REF18307 V-REF18308 LDV-REF18309 CWORK-REF18310
       LWORK-REF18311 RWORK-REF18312 LRWORK-REF18313 INFO-REF18314))))

(CFFI:DEFCFUN ("zgesvx_" %%ZGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18317 ':INT32) (NRHS-REF18318 ':INT32)
                              (LDA-REF18320 ':INT32) (LDAF-REF18322 ':INT32)
                              (LDB-REF18328 ':INT32) (LDX-REF18330 ':INT32)
                              (RCOND-REF18331 ':DOUBLE) (INFO-REF18336 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18317 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18318 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18320 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18322 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18328 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18330 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18331 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18336 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18319 A) (AF-REF18321 AF)
                                            (IPIV-REF18323 IPIV) (R-REF18325 R)
                                            (C-REF18326 C) (B-REF18327 B)
                                            (X-REF18329 X) (FERR-REF18332 FERR)
                                            (BERR-REF18333 BERR)
                                            (WORK-REF18334 WORK)
                                            (RWORK-REF18335 RWORK))
      (%%ZGESVX FACT TRANS N-REF18317 NRHS-REF18318 A-REF18319 LDA-REF18320
       AF-REF18321 LDAF-REF18322 IPIV-REF18323 EQUED R-REF18325 C-REF18326
       B-REF18327 LDB-REF18328 X-REF18329 LDX-REF18330 RCOND-REF18331
       FERR-REF18332 BERR-REF18333 WORK-REF18334 RWORK-REF18335
       INFO-REF18336))))

(CFFI:DEFCFUN ("zgesvxx_" %%ZGESVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVXX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18339 ':INT32) (NRHS-REF18340 ':INT32)
                              (LDA-REF18342 ':INT32) (LDAF-REF18344 ':INT32)
                              (LDB-REF18350 ':INT32) (LDX-REF18352 ':INT32)
                              (RCOND-REF18353 ':DOUBLE)
                              (RPVGRW-REF18354 ':DOUBLE)
                              (N_ERR_BNDS-REF18356 ':INT32)
                              (NPARAMS-REF18359 ':INT32)
                              (INFO-REF18363 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18339 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18340 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18342 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18344 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18350 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18352 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18353 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF18354 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18356 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18359 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18363 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18341 A) (AF-REF18343 AF)
                                            (IPIV-REF18345 IPIV) (R-REF18347 R)
                                            (C-REF18348 C) (B-REF18349 B)
                                            (X-REF18351 X) (BERR-REF18355 BERR)
                                            (ERR_BNDS_NORM-REF18357
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF18358
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF18360 PARAMS)
                                            (WORK-REF18361 WORK)
                                            (RWORK-REF18362 RWORK))
      (%%ZGESVXX FACT TRANS N-REF18339 NRHS-REF18340 A-REF18341 LDA-REF18342
       AF-REF18343 LDAF-REF18344 IPIV-REF18345 EQUED R-REF18347 C-REF18348
       B-REF18349 LDB-REF18350 X-REF18351 LDX-REF18352 RCOND-REF18353
       RPVGRW-REF18354 BERR-REF18355 N_ERR_BNDS-REF18356 ERR_BNDS_NORM-REF18357
       ERR_BNDS_COMP-REF18358 NPARAMS-REF18359 PARAMS-REF18360 WORK-REF18361
       RWORK-REF18362 INFO-REF18363))))

(CFFI:DEFCFUN ("zgetc2_" %%ZGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETC2 (N A LDA IPIV JPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18364 ':INT32) (LDA-REF18366 ':INT32)
                              (INFO-REF18369 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18364 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18366 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18369 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18365 A) (IPIV-REF18367 IPIV)
                                            (JPIV-REF18368 JPIV))
      (%%ZGETC2 N-REF18364 A-REF18365 LDA-REF18366 IPIV-REF18367 JPIV-REF18368
       INFO-REF18369))))

(CFFI:DEFCFUN ("zgetf2_" %%ZGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18370 ':INT32) (N-REF18371 ':INT32)
                              (LDA-REF18373 ':INT32) (INFO-REF18375 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18370 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18373 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18375 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18372 A) (IPIV-REF18374 IPIV))
      (%%ZGETF2 M-REF18370 N-REF18371 A-REF18372 LDA-REF18373 IPIV-REF18374
       INFO-REF18375))))

(CFFI:DEFCFUN ("zgetrf_" %%ZGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18376 ':INT32) (N-REF18377 ':INT32)
                              (LDA-REF18379 ':INT32) (INFO-REF18381 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18376 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18379 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18381 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18378 A) (IPIV-REF18380 IPIV))
      (%%ZGETRF M-REF18376 N-REF18377 A-REF18378 LDA-REF18379 IPIV-REF18380
       INFO-REF18381))))

(CFFI:DEFCFUN ("zgetrf2_" %%ZGETRF2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18382 ':INT32) (N-REF18383 ':INT32)
                              (LDA-REF18385 ':INT32) (INFO-REF18387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18382 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18383 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18385 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18387 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18384 A) (IPIV-REF18386 IPIV))
      (%%ZGETRF2 M-REF18382 N-REF18383 A-REF18384 LDA-REF18385 IPIV-REF18386
       INFO-REF18387))))

(CFFI:DEFCFUN ("zgetri_" %%ZGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18388 ':INT32) (LDA-REF18390 ':INT32)
                              (LWORK-REF18393 ':INT32) (INFO-REF18394 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18388 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18390 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18393 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18394 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18389 A) (IPIV-REF18391 IPIV)
                                            (WORK-REF18392 WORK))
      (%%ZGETRI N-REF18388 A-REF18389 LDA-REF18390 IPIV-REF18391 WORK-REF18392
       LWORK-REF18393 INFO-REF18394))))

(CFFI:DEFCFUN ("zgetrs_" %%ZGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18396 ':INT32) (NRHS-REF18397 ':INT32)
                              (LDA-REF18399 ':INT32) (LDB-REF18402 ':INT32)
                              (INFO-REF18403 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18396 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18397 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18399 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18402 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18403 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18398 A) (IPIV-REF18400 IPIV)
                                            (B-REF18401 B))
      (%%ZGETRS TRANS N-REF18396 NRHS-REF18397 A-REF18398 LDA-REF18399
       IPIV-REF18400 B-REF18401 LDB-REF18402 INFO-REF18403))))

(CFFI:DEFCFUN ("zgetsls_" %%ZGETSLS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETSLS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18405 ':INT32) (N-REF18406 ':INT32)
                              (NRHS-REF18407 ':INT32) (LDA-REF18409 ':INT32)
                              (LDB-REF18411 ':INT32) (LWORK-REF18413 ':INT32)
                              (INFO-REF18414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18405 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18406 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18407 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18409 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18411 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18413 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18414 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18408 A) (B-REF18410 B)
                                            (WORK-REF18412 WORK))
      (%%ZGETSLS TRANS M-REF18405 N-REF18406 NRHS-REF18407 A-REF18408
       LDA-REF18409 B-REF18410 LDB-REF18411 WORK-REF18412 LWORK-REF18413
       INFO-REF18414))))

(CFFI:DEFCFUN ("zggbak_" %%ZGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18417 ':INT32) (ILO-REF18418 ':INT32)
                              (IHI-REF18419 ':INT32) (M-REF18422 ':INT32)
                              (LDV-REF18424 ':INT32) (INFO-REF18425 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18418 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18419 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18422 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18424 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18425 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF18420 LSCALE)
                                            (RSCALE-REF18421 RSCALE)
                                            (V-REF18423 V))
      (%%ZGGBAK JOB SIDE N-REF18417 ILO-REF18418 IHI-REF18419 LSCALE-REF18420
       RSCALE-REF18421 M-REF18422 V-REF18423 LDV-REF18424 INFO-REF18425))))

(CFFI:DEFCFUN ("zggbal_" %%ZGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18427 ':INT32) (LDA-REF18429 ':INT32)
                              (LDB-REF18431 ':INT32) (ILO-REF18432 ':INT32)
                              (IHI-REF18433 ':INT32) (INFO-REF18437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18427 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18429 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18431 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18432 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18433 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18437 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18428 A) (B-REF18430 B)
                                            (LSCALE-REF18434 LSCALE)
                                            (RSCALE-REF18435 RSCALE)
                                            (WORK-REF18436 WORK))
      (%%ZGGBAL JOB N-REF18427 A-REF18428 LDA-REF18429 B-REF18430 LDB-REF18431
       ILO-REF18432 IHI-REF18433 LSCALE-REF18434 RSCALE-REF18435 WORK-REF18436
       INFO-REF18437))))

(CFFI:DEFCFUN ("zgges_" %%ZGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGES
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL
                    LDVSL VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18441 ':INT32) (N-REF18442 ':INT32)
                              (LDA-REF18444 ':INT32) (LDB-REF18446 ':INT32)
                              (SDIM-REF18447 ':INT32) (LDVSL-REF18451 ':INT32)
                              (LDVSR-REF18453 ':INT32) (LWORK-REF18455 ':INT32)
                              (INFO-REF18458 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18441 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18442 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18444 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18446 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18447 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18451 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18453 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18455 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18458 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18443 A) (B-REF18445 B)
                                            (ALPHA-REF18448 ALPHA)
                                            (BETA-REF18449 BETA)
                                            (VSL-REF18450 VSL)
                                            (VSR-REF18452 VSR)
                                            (WORK-REF18454 WORK)
                                            (RWORK-REF18456 RWORK)
                                            (BWORK-REF18457 BWORK))
      (%%ZGGES JOBVSL JOBVSR SORT SELCTG-REF18441 N-REF18442 A-REF18443
       LDA-REF18444 B-REF18445 LDB-REF18446 SDIM-REF18447 ALPHA-REF18448
       BETA-REF18449 VSL-REF18450 LDVSL-REF18451 VSR-REF18452 LDVSR-REF18453
       WORK-REF18454 LWORK-REF18455 RWORK-REF18456 BWORK-REF18457
       INFO-REF18458))))

(CFFI:DEFCFUN ("zgges3_" %%ZGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGES3
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL
                    LDVSL VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGES3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18462 ':INT32) (N-REF18463 ':INT32)
                              (LDA-REF18465 ':INT32) (LDB-REF18467 ':INT32)
                              (SDIM-REF18468 ':INT32) (LDVSL-REF18472 ':INT32)
                              (LDVSR-REF18474 ':INT32) (LWORK-REF18476 ':INT32)
                              (INFO-REF18479 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18462 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18463 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18465 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18467 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18468 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18472 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18474 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18476 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18479 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18464 A) (B-REF18466 B)
                                            (ALPHA-REF18469 ALPHA)
                                            (BETA-REF18470 BETA)
                                            (VSL-REF18471 VSL)
                                            (VSR-REF18473 VSR)
                                            (WORK-REF18475 WORK)
                                            (RWORK-REF18477 RWORK)
                                            (BWORK-REF18478 BWORK))
      (%%ZGGES3 JOBVSL JOBVSR SORT SELCTG-REF18462 N-REF18463 A-REF18464
       LDA-REF18465 B-REF18466 LDB-REF18467 SDIM-REF18468 ALPHA-REF18469
       BETA-REF18470 VSL-REF18471 LDVSL-REF18472 VSR-REF18473 LDVSR-REF18474
       WORK-REF18475 LWORK-REF18476 RWORK-REF18477 BWORK-REF18478
       INFO-REF18479))))

(CFFI:DEFCFUN ("zggesx_" %%ZGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGESX
                   (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHA
                    BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK RWORK
                    IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18483 ':INT32) (N-REF18485 ':INT32)
                              (LDA-REF18487 ':INT32) (LDB-REF18489 ':INT32)
                              (SDIM-REF18490 ':INT32) (LDVSL-REF18494 ':INT32)
                              (LDVSR-REF18496 ':INT32) (LWORK-REF18500 ':INT32)
                              (LIWORK-REF18503 ':INT32) (INFO-REF18505 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18483 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18485 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18487 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18489 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18490 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18494 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18496 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18500 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18503 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18505 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18486 A) (B-REF18488 B)
                                            (ALPHA-REF18491 ALPHA)
                                            (BETA-REF18492 BETA)
                                            (VSL-REF18493 VSL)
                                            (VSR-REF18495 VSR)
                                            (RCONDE-REF18497 RCONDE)
                                            (RCONDV-REF18498 RCONDV)
                                            (WORK-REF18499 WORK)
                                            (RWORK-REF18501 RWORK)
                                            (IWORK-REF18502 IWORK)
                                            (BWORK-REF18504 BWORK))
      (%%ZGGESX JOBVSL JOBVSR SORT SELCTG-REF18483 SENSE N-REF18485 A-REF18486
       LDA-REF18487 B-REF18488 LDB-REF18489 SDIM-REF18490 ALPHA-REF18491
       BETA-REF18492 VSL-REF18493 LDVSL-REF18494 VSR-REF18495 LDVSR-REF18496
       RCONDE-REF18497 RCONDV-REF18498 WORK-REF18499 LWORK-REF18500
       RWORK-REF18501 IWORK-REF18502 LIWORK-REF18503 BWORK-REF18504
       INFO-REF18505))))

(CFFI:DEFCFUN ("zggev_" %%ZGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGEV
                   (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK
                    LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18508 ':INT32) (LDA-REF18510 ':INT32)
                              (LDB-REF18512 ':INT32) (LDVL-REF18516 ':INT32)
                              (LDVR-REF18518 ':INT32) (LWORK-REF18520 ':INT32)
                              (INFO-REF18522 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18508 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18510 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18512 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18516 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18518 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18520 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18522 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18509 A) (B-REF18511 B)
                                            (ALPHA-REF18513 ALPHA)
                                            (BETA-REF18514 BETA)
                                            (VL-REF18515 VL) (VR-REF18517 VR)
                                            (WORK-REF18519 WORK)
                                            (RWORK-REF18521 RWORK))
      (%%ZGGEV JOBVL JOBVR N-REF18508 A-REF18509 LDA-REF18510 B-REF18511
       LDB-REF18512 ALPHA-REF18513 BETA-REF18514 VL-REF18515 LDVL-REF18516
       VR-REF18517 LDVR-REF18518 WORK-REF18519 LWORK-REF18520 RWORK-REF18521
       INFO-REF18522))))

(CFFI:DEFCFUN ("zggev3_" %%ZGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGEV3
                   (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK
                    LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGEV3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18525 ':INT32) (LDA-REF18527 ':INT32)
                              (LDB-REF18529 ':INT32) (LDVL-REF18533 ':INT32)
                              (LDVR-REF18535 ':INT32) (LWORK-REF18537 ':INT32)
                              (INFO-REF18539 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18525 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18527 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18529 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18533 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18535 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18537 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18539 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18526 A) (B-REF18528 B)
                                            (ALPHA-REF18530 ALPHA)
                                            (BETA-REF18531 BETA)
                                            (VL-REF18532 VL) (VR-REF18534 VR)
                                            (WORK-REF18536 WORK)
                                            (RWORK-REF18538 RWORK))
      (%%ZGGEV3 JOBVL JOBVR N-REF18525 A-REF18526 LDA-REF18527 B-REF18528
       LDB-REF18529 ALPHA-REF18530 BETA-REF18531 VL-REF18532 LDVL-REF18533
       VR-REF18534 LDVR-REF18535 WORK-REF18536 LWORK-REF18537 RWORK-REF18538
       INFO-REF18539))))

(CFFI:DEFCFUN ("zggevx_" %%ZGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (ABNRM :POINTER)
  (BBNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHA BETA VL LDVL
                    VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE RCONDV
                    WORK LWORK RWORK IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BBNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18544 ':INT32) (LDA-REF18546 ':INT32)
                              (LDB-REF18548 ':INT32) (LDVL-REF18552 ':INT32)
                              (LDVR-REF18554 ':INT32) (ILO-REF18555 ':INT32)
                              (IHI-REF18556 ':INT32) (ABNRM-REF18559 ':DOUBLE)
                              (BBNRM-REF18560 ':DOUBLE)
                              (LWORK-REF18564 ':INT32) (INFO-REF18568 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18546 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18548 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18552 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18554 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18555 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18556 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF18559 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF18560 :DOUBLE) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18564 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18568 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18545 A) (B-REF18547 B)
                                            (ALPHA-REF18549 ALPHA)
                                            (BETA-REF18550 BETA)
                                            (VL-REF18551 VL) (VR-REF18553 VR)
                                            (LSCALE-REF18557 LSCALE)
                                            (RSCALE-REF18558 RSCALE)
                                            (RCONDE-REF18561 RCONDE)
                                            (RCONDV-REF18562 RCONDV)
                                            (WORK-REF18563 WORK)
                                            (RWORK-REF18565 RWORK)
                                            (IWORK-REF18566 IWORK)
                                            (BWORK-REF18567 BWORK))
      (%%ZGGEVX BALANC JOBVL JOBVR SENSE N-REF18544 A-REF18545 LDA-REF18546
       B-REF18547 LDB-REF18548 ALPHA-REF18549 BETA-REF18550 VL-REF18551
       LDVL-REF18552 VR-REF18553 LDVR-REF18554 ILO-REF18555 IHI-REF18556
       LSCALE-REF18557 RSCALE-REF18558 ABNRM-REF18559 BBNRM-REF18560
       RCONDE-REF18561 RCONDV-REF18562 WORK-REF18563 LWORK-REF18564
       RWORK-REF18565 IWORK-REF18566 BWORK-REF18567 INFO-REF18568))))

(CFFI:DEFCFUN ("zggglm_" %%ZGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (D :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGGLM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18569 ':INT32) (M-REF18570 ':INT32)
                              (P-REF18571 ':INT32) (LDA-REF18573 ':INT32)
                              (LDB-REF18575 ':INT32) (LWORK-REF18580 ':INT32)
                              (INFO-REF18581 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18570 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18571 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18573 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18575 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18580 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18581 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18572 A) (B-REF18574 B)
                                            (D-REF18576 D) (X-REF18577 X)
                                            (Y-REF18578 Y) (WORK-REF18579 WORK))
      (%%ZGGGLM N-REF18569 M-REF18570 P-REF18571 A-REF18572 LDA-REF18573
       B-REF18574 LDB-REF18575 D-REF18576 X-REF18577 Y-REF18578 WORK-REF18579
       LWORK-REF18580 INFO-REF18581))))

(CFFI:DEFCFUN ("zgghd3_" %%ZGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGHD3
                   (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGHD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18584 ':INT32) (ILO-REF18585 ':INT32)
                              (IHI-REF18586 ':INT32) (LDA-REF18588 ':INT32)
                              (LDB-REF18590 ':INT32) (LDQ-REF18592 ':INT32)
                              (LDZ-REF18594 ':INT32) (LWORK-REF18596 ':INT32)
                              (INFO-REF18597 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18584 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18585 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18586 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18588 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18590 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18592 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18594 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18596 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18597 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18587 A) (B-REF18589 B)
                                            (Q-REF18591 Q) (Z-REF18593 Z)
                                            (WORK-REF18595 WORK))
      (%%ZGGHD3 COMPQ COMPZ N-REF18584 ILO-REF18585 IHI-REF18586 A-REF18587
       LDA-REF18588 B-REF18589 LDB-REF18590 Q-REF18591 LDQ-REF18592 Z-REF18593
       LDZ-REF18594 WORK-REF18595 LWORK-REF18596 INFO-REF18597))))

(CFFI:DEFCFUN ("zgghrd_" %%ZGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGHRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18600 ':INT32) (ILO-REF18601 ':INT32)
                              (IHI-REF18602 ':INT32) (LDA-REF18604 ':INT32)
                              (LDB-REF18606 ':INT32) (LDQ-REF18608 ':INT32)
                              (LDZ-REF18610 ':INT32) (INFO-REF18611 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18600 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18601 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18602 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18604 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18606 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18608 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18610 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18611 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18603 A) (B-REF18605 B)
                                            (Q-REF18607 Q) (Z-REF18609 Z))
      (%%ZGGHRD COMPQ COMPZ N-REF18600 ILO-REF18601 IHI-REF18602 A-REF18603
       LDA-REF18604 B-REF18605 LDB-REF18606 Q-REF18607 LDQ-REF18608 Z-REF18609
       LDZ-REF18610 INFO-REF18611))))

(CFFI:DEFCFUN ("zgglse_" %%ZGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (D :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGLSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18612 ':INT32) (N-REF18613 ':INT32)
                              (P-REF18614 ':INT32) (LDA-REF18616 ':INT32)
                              (LDB-REF18618 ':INT32) (LWORK-REF18623 ':INT32)
                              (INFO-REF18624 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18612 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18614 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18616 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18618 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18623 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18624 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18615 A) (B-REF18617 B)
                                            (C-REF18619 C) (D-REF18620 D)
                                            (X-REF18621 X) (WORK-REF18622 WORK))
      (%%ZGGLSE M-REF18612 N-REF18613 P-REF18614 A-REF18615 LDA-REF18616
       B-REF18617 LDB-REF18618 C-REF18619 D-REF18620 X-REF18621 WORK-REF18622
       LWORK-REF18623 INFO-REF18624))))

(CFFI:DEFCFUN ("zggqrf_" %%ZGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18625 ':INT32) (M-REF18626 ':INT32)
                              (P-REF18627 ':INT32) (LDA-REF18629 ':INT32)
                              (LDB-REF18632 ':INT32) (LWORK-REF18635 ':INT32)
                              (INFO-REF18636 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18625 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18626 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18627 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18629 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18632 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18635 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18636 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18628 A) (TAUA-REF18630 TAUA)
                                            (B-REF18631 B) (TAUB-REF18633 TAUB)
                                            (WORK-REF18634 WORK))
      (%%ZGGQRF N-REF18625 M-REF18626 P-REF18627 A-REF18628 LDA-REF18629
       TAUA-REF18630 B-REF18631 LDB-REF18632 TAUB-REF18633 WORK-REF18634
       LWORK-REF18635 INFO-REF18636))))

(CFFI:DEFCFUN ("zggrqf_" %%ZGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGRQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18637 ':INT32) (P-REF18638 ':INT32)
                              (N-REF18639 ':INT32) (LDA-REF18641 ':INT32)
                              (LDB-REF18644 ':INT32) (LWORK-REF18647 ':INT32)
                              (INFO-REF18648 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18637 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18638 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18639 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18641 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18644 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18647 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18648 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18640 A) (TAUA-REF18642 TAUA)
                                            (B-REF18643 B) (TAUB-REF18645 TAUB)
                                            (WORK-REF18646 WORK))
      (%%ZGGRQF M-REF18637 P-REF18638 N-REF18639 A-REF18640 LDA-REF18641
       TAUA-REF18642 B-REF18643 LDB-REF18644 TAUB-REF18645 WORK-REF18646
       LWORK-REF18647 INFO-REF18648))))

(CFFI:DEFCFUN ("zggsvd3_" %%ZGGSVD3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGSVD3
                   (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
                    Q LDQ WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGSVD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18652 ':INT32) (N-REF18653 ':INT32)
                              (P-REF18654 ':INT32) (K-REF18655 ':INT32)
                              (L-REF18656 ':INT32) (LDA-REF18658 ':INT32)
                              (LDB-REF18660 ':INT32) (LDU-REF18664 ':INT32)
                              (LDV-REF18666 ':INT32) (LDQ-REF18668 ':INT32)
                              (LWORK-REF18670 ':INT32) (INFO-REF18673 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18652 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18653 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18654 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18655 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18656 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18658 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18660 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18664 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18666 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18668 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18670 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18673 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18657 A) (B-REF18659 B)
                                            (ALPHA-REF18661 ALPHA)
                                            (BETA-REF18662 BETA) (U-REF18663 U)
                                            (V-REF18665 V) (Q-REF18667 Q)
                                            (WORK-REF18669 WORK)
                                            (RWORK-REF18671 RWORK)
                                            (IWORK-REF18672 IWORK))
      (%%ZGGSVD3 JOBU JOBV JOBQ M-REF18652 N-REF18653 P-REF18654 K-REF18655
       L-REF18656 A-REF18657 LDA-REF18658 B-REF18659 LDB-REF18660
       ALPHA-REF18661 BETA-REF18662 U-REF18663 LDU-REF18664 V-REF18665
       LDV-REF18666 Q-REF18667 LDQ-REF18668 WORK-REF18669 LWORK-REF18670
       RWORK-REF18671 IWORK-REF18672 INFO-REF18673))))

(CFFI:DEFCFUN ("zggsvp3_" %%ZGGSVP3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (K :POINTER)
  (L :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IWORK :POINTER)
  (RWORK :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGSVP3
                   (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
                    Q LDQ IWORK RWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGSVP3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18677 ':INT32) (P-REF18678 ':INT32)
                              (N-REF18679 ':INT32) (LDA-REF18681 ':INT32)
                              (LDB-REF18683 ':INT32) (TOLA-REF18684 ':DOUBLE)
                              (TOLB-REF18685 ':DOUBLE) (K-REF18686 ':INT32)
                              (L-REF18687 ':INT32) (LDU-REF18689 ':INT32)
                              (LDV-REF18691 ':INT32) (LDQ-REF18693 ':INT32)
                              (LWORK-REF18698 ':INT32) (INFO-REF18699 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18677 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18678 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18679 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18681 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18683 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF18684 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF18685 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18686 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18687 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18689 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18691 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18693 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18698 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18699 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18680 A) (B-REF18682 B)
                                            (U-REF18688 U) (V-REF18690 V)
                                            (Q-REF18692 Q)
                                            (IWORK-REF18694 IWORK)
                                            (RWORK-REF18695 RWORK)
                                            (TAU-REF18696 TAU)
                                            (WORK-REF18697 WORK))
      (%%ZGGSVP3 JOBU JOBV JOBQ M-REF18677 P-REF18678 N-REF18679 A-REF18680
       LDA-REF18681 B-REF18682 LDB-REF18683 TOLA-REF18684 TOLB-REF18685
       K-REF18686 L-REF18687 U-REF18688 LDU-REF18689 V-REF18690 LDV-REF18691
       Q-REF18692 LDQ-REF18693 IWORK-REF18694 RWORK-REF18695 TAU-REF18696
       WORK-REF18697 LWORK-REF18698 INFO-REF18699))))

(CFFI:DEFCFUN ("zgsvj0_" %%ZGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGSVJ0
                   (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGSVJ0)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18701 ':INT32) (N-REF18702 ':INT32)
                              (LDA-REF18704 ':INT32) (MV-REF18707 ':INT32)
                              (LDV-REF18709 ':INT32) (EPS-REF18710 ':DOUBLE)
                              (SFMIN-REF18711 ':DOUBLE) (TOL-REF18712 ':DOUBLE)
                              (NSWEEP-REF18713 ':INT32)
                              (LWORK-REF18715 ':INT32) (INFO-REF18716 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18701 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18702 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18704 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18707 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18709 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18710 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18711 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18712 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18713 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18715 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18716 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18703 A) (D-REF18705 D)
                                            (SVA-REF18706 SVA) (V-REF18708 V)
                                            (WORK-REF18714 WORK))
      (%%ZGSVJ0 JOBV M-REF18701 N-REF18702 A-REF18703 LDA-REF18704 D-REF18705
       SVA-REF18706 MV-REF18707 V-REF18708 LDV-REF18709 EPS-REF18710
       SFMIN-REF18711 TOL-REF18712 NSWEEP-REF18713 WORK-REF18714 LWORK-REF18715
       INFO-REF18716))))

(CFFI:DEFCFUN ("zgsvj1_" %%ZGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGSVJ1
                   (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGSVJ1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18718 ':INT32) (N-REF18719 ':INT32)
                              (N1-REF18720 ':INT32) (LDA-REF18722 ':INT32)
                              (MV-REF18725 ':INT32) (LDV-REF18727 ':INT32)
                              (EPS-REF18728 ':DOUBLE) (SFMIN-REF18729 ':DOUBLE)
                              (TOL-REF18730 ':DOUBLE) (NSWEEP-REF18731 ':INT32)
                              (LWORK-REF18733 ':INT32) (INFO-REF18734 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18718 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18719 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF18720 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18722 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18725 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18727 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18728 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18729 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18730 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18731 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18733 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18734 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18721 A) (D-REF18723 D)
                                            (SVA-REF18724 SVA) (V-REF18726 V)
                                            (WORK-REF18732 WORK))
      (%%ZGSVJ1 JOBV M-REF18718 N-REF18719 N1-REF18720 A-REF18721 LDA-REF18722
       D-REF18723 SVA-REF18724 MV-REF18725 V-REF18726 LDV-REF18727 EPS-REF18728
       SFMIN-REF18729 TOL-REF18730 NSWEEP-REF18731 WORK-REF18732 LWORK-REF18733
       INFO-REF18734))))

(CFFI:DEFCFUN ("zgtcon_" %%ZGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTCON (NORM N DL D DU DU2 IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18736 ':INT32) (ANORM-REF18742 ':DOUBLE)
                              (RCOND-REF18743 ':DOUBLE) (INFO-REF18745 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18736 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF18742 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18743 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18745 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18737 DL) (D-REF18738 D)
                                            (DU-REF18739 DU) (DU2-REF18740 DU2)
                                            (IPIV-REF18741 IPIV)
                                            (WORK-REF18744 WORK))
      (%%ZGTCON NORM N-REF18736 DL-REF18737 D-REF18738 DU-REF18739 DU2-REF18740
       IPIV-REF18741 ANORM-REF18742 RCOND-REF18743 WORK-REF18744
       INFO-REF18745))))

(CFFI:DEFCFUN ("zgtrfs_" %%ZGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTRFS
                   (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
                    BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18747 ':INT32) (NRHS-REF18748 ':INT32)
                              (LDB-REF18758 ':INT32) (LDX-REF18760 ':INT32)
                              (INFO-REF18765 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18747 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18748 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18758 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18760 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18765 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18749 DL) (D-REF18750 D)
                                            (DU-REF18751 DU) (DLF-REF18752 DLF)
                                            (DF-REF18753 DF) (DUF-REF18754 DUF)
                                            (DU2-REF18755 DU2)
                                            (IPIV-REF18756 IPIV) (B-REF18757 B)
                                            (X-REF18759 X) (FERR-REF18761 FERR)
                                            (BERR-REF18762 BERR)
                                            (WORK-REF18763 WORK)
                                            (RWORK-REF18764 RWORK))
      (%%ZGTRFS TRANS N-REF18747 NRHS-REF18748 DL-REF18749 D-REF18750
       DU-REF18751 DLF-REF18752 DF-REF18753 DUF-REF18754 DU2-REF18755
       IPIV-REF18756 B-REF18757 LDB-REF18758 X-REF18759 LDX-REF18760
       FERR-REF18761 BERR-REF18762 WORK-REF18763 RWORK-REF18764
       INFO-REF18765))))

(CFFI:DEFCFUN ("zgtsv_" %%ZGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18766 ':INT32) (NRHS-REF18767 ':INT32)
                              (LDB-REF18772 ':INT32) (INFO-REF18773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18766 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18767 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18772 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18768 DL) (D-REF18769 D)
                                            (DU-REF18770 DU) (B-REF18771 B))
      (%%ZGTSV N-REF18766 NRHS-REF18767 DL-REF18768 D-REF18769 DU-REF18770
       B-REF18771 LDB-REF18772 INFO-REF18773))))

(CFFI:DEFCFUN ("zgtsvx_" %%ZGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTSVX
                   (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18776 ':INT32) (NRHS-REF18777 ':INT32)
                              (LDB-REF18787 ':INT32) (LDX-REF18789 ':INT32)
                              (RCOND-REF18790 ':DOUBLE) (INFO-REF18795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18776 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18777 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18787 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18789 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18790 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18795 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18778 DL) (D-REF18779 D)
                                            (DU-REF18780 DU) (DLF-REF18781 DLF)
                                            (DF-REF18782 DF) (DUF-REF18783 DUF)
                                            (DU2-REF18784 DU2)
                                            (IPIV-REF18785 IPIV) (B-REF18786 B)
                                            (X-REF18788 X) (FERR-REF18791 FERR)
                                            (BERR-REF18792 BERR)
                                            (WORK-REF18793 WORK)
                                            (RWORK-REF18794 RWORK))
      (%%ZGTSVX FACT TRANS N-REF18776 NRHS-REF18777 DL-REF18778 D-REF18779
       DU-REF18780 DLF-REF18781 DF-REF18782 DUF-REF18783 DU2-REF18784
       IPIV-REF18785 B-REF18786 LDB-REF18787 X-REF18788 LDX-REF18789
       RCOND-REF18790 FERR-REF18791 BERR-REF18792 WORK-REF18793 RWORK-REF18794
       INFO-REF18795))))

(CFFI:DEFCFUN ("zgttrf_" %%ZGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18796 ':INT32) (INFO-REF18802 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18796 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18802 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18797 DL) (D-REF18798 D)
                                            (DU-REF18799 DU) (DU2-REF18800 DU2)
                                            (IPIV-REF18801 IPIV))
      (%%ZGTTRF N-REF18796 DL-REF18797 D-REF18798 DU-REF18799 DU2-REF18800
       IPIV-REF18801 INFO-REF18802))))

(CFFI:DEFCFUN ("zgttrs_" %%ZGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18804 ':INT32) (NRHS-REF18805 ':INT32)
                              (LDB-REF18812 ':INT32) (INFO-REF18813 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18804 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18805 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18812 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18813 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18806 DL) (D-REF18807 D)
                                            (DU-REF18808 DU) (DU2-REF18809 DU2)
                                            (IPIV-REF18810 IPIV) (B-REF18811 B))
      (%%ZGTTRS TRANS N-REF18804 NRHS-REF18805 DL-REF18806 D-REF18807
       DU-REF18808 DU2-REF18809 IPIV-REF18810 B-REF18811 LDB-REF18812
       INFO-REF18813))))

(CFFI:DEFCFUN ("zgtts2_" %%ZGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITRANS :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF18814 ':INT32) (N-REF18815 ':INT32)
                              (NRHS-REF18816 ':INT32) (LDB-REF18823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF18814 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18815 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18816 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18823 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18817 DL) (D-REF18818 D)
                                            (DU-REF18819 DU) (DU2-REF18820 DU2)
                                            (IPIV-REF18821 IPIV) (B-REF18822 B))
      (%%ZGTTS2 ITRANS-REF18814 N-REF18815 NRHS-REF18816 DL-REF18817 D-REF18818
       DU-REF18819 DU2-REF18820 IPIV-REF18821 B-REF18822 LDB-REF18823))))

(CFFI:DEFCFUN ("zhb2st_kernels_" %%ZHB2ST_KERNELS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WANTZ :POINTER)
  (TTYPE :POINTER)
  (ST :POINTER)
  (ED :POINTER)
  (SWEEP :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (IB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZHB2ST_KERNELS
                   (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHB2ST_KERNELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF18825 ':INT32) (TTYPE-REF18826 ':INT32)
                              (ST-REF18827 ':INT32) (ED-REF18828 ':INT32)
                              (SWEEP-REF18829 ':INT32) (N-REF18830 ':INT32)
                              (NB-REF18831 ':INT32) (IB-REF18832 ':INT32)
                              (LDA-REF18834 ':INT32) (LDVT-REF18837 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF18825 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF18826 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF18827 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF18828 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF18829 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18830 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18831 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF18832 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18834 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18837 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18833 A) (V-REF18835 V)
                                            (TAU-REF18836 TAU)
                                            (WORK-REF18838 WORK))
      (%%ZHB2ST_KERNELS UPLO WANTZ-REF18825 TTYPE-REF18826 ST-REF18827
       ED-REF18828 SWEEP-REF18829 N-REF18830 NB-REF18831 IB-REF18832 A-REF18833
       LDA-REF18834 V-REF18835 TAU-REF18836 LDVT-REF18837 WORK-REF18838))))

(CFFI:DEFCFUN ("zhbev_" %%ZHBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18841 ':INT32) (KD-REF18842 ':INT32)
                              (LDAB-REF18844 ':INT32) (LDZ-REF18847 ':INT32)
                              (INFO-REF18850 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18841 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18842 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18844 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18847 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18850 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18843 AB) (W-REF18845 W)
                                            (Z-REF18846 Z) (WORK-REF18848 WORK)
                                            (RWORK-REF18849 RWORK))
      (%%ZHBEV JOBZ UPLO N-REF18841 KD-REF18842 AB-REF18843 LDAB-REF18844
       W-REF18845 Z-REF18846 LDZ-REF18847 WORK-REF18848 RWORK-REF18849
       INFO-REF18850))))

(CFFI:DEFCFUN ("zhbev_2stage_" %%ZHBEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEV_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18853 ':INT32) (KD-REF18854 ':INT32)
                              (LDAB-REF18856 ':INT32) (LDZ-REF18859 ':INT32)
                              (LWORK-REF18861 ':INT32) (INFO-REF18863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18853 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18854 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18856 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18859 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18861 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18863 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18855 AB) (W-REF18857 W)
                                            (Z-REF18858 Z) (WORK-REF18860 WORK)
                                            (RWORK-REF18862 RWORK))
      (%%ZHBEV_2STAGE JOBZ UPLO N-REF18853 KD-REF18854 AB-REF18855
       LDAB-REF18856 W-REF18857 Z-REF18858 LDZ-REF18859 WORK-REF18860
       LWORK-REF18861 RWORK-REF18862 INFO-REF18863))))

(CFFI:DEFCFUN ("zhbevd_" %%ZHBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEVD
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18866 ':INT32) (KD-REF18867 ':INT32)
                              (LDAB-REF18869 ':INT32) (LDZ-REF18872 ':INT32)
                              (LWORK-REF18874 ':INT32)
                              (LRWORK-REF18876 ':INT32)
                              (LIWORK-REF18878 ':INT32) (INFO-REF18879 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18866 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18867 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18869 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18872 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18874 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18876 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18878 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18879 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18868 AB) (W-REF18870 W)
                                            (Z-REF18871 Z) (WORK-REF18873 WORK)
                                            (RWORK-REF18875 RWORK)
                                            (IWORK-REF18877 IWORK))
      (%%ZHBEVD JOBZ UPLO N-REF18866 KD-REF18867 AB-REF18868 LDAB-REF18869
       W-REF18870 Z-REF18871 LDZ-REF18872 WORK-REF18873 LWORK-REF18874
       RWORK-REF18875 LRWORK-REF18876 IWORK-REF18877 LIWORK-REF18878
       INFO-REF18879))))

(CFFI:DEFCFUN ("zhbevd_2stage_" %%ZHBEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEVD_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18882 ':INT32) (KD-REF18883 ':INT32)
                              (LDAB-REF18885 ':INT32) (LDZ-REF18888 ':INT32)
                              (LWORK-REF18890 ':INT32)
                              (LRWORK-REF18892 ':INT32)
                              (LIWORK-REF18894 ':INT32) (INFO-REF18895 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18882 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18883 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18885 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18888 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18890 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18892 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18894 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18895 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18884 AB) (W-REF18886 W)
                                            (Z-REF18887 Z) (WORK-REF18889 WORK)
                                            (RWORK-REF18891 RWORK)
                                            (IWORK-REF18893 IWORK))
      (%%ZHBEVD_2STAGE JOBZ UPLO N-REF18882 KD-REF18883 AB-REF18884
       LDAB-REF18885 W-REF18886 Z-REF18887 LDZ-REF18888 WORK-REF18889
       LWORK-REF18890 RWORK-REF18891 LRWORK-REF18892 IWORK-REF18893
       LIWORK-REF18894 INFO-REF18895))))

(CFFI:DEFCFUN ("zhbevx_" %%ZHBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEVX
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18899 ':INT32) (KD-REF18900 ':INT32)
                              (LDAB-REF18902 ':INT32) (LDQ-REF18904 ':INT32)
                              (VL-REF18905 ':DOUBLE) (VU-REF18906 ':DOUBLE)
                              (IL-REF18907 ':INT32) (IU-REF18908 ':INT32)
                              (ABSTOL-REF18909 ':DOUBLE) (M-REF18910 ':INT32)
                              (LDZ-REF18913 ':INT32) (INFO-REF18918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18899 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18900 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18902 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18904 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18905 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18906 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18907 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18908 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18909 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18910 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18913 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18918 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18901 AB) (Q-REF18903 Q)
                                            (W-REF18911 W) (Z-REF18912 Z)
                                            (WORK-REF18914 WORK)
                                            (RWORK-REF18915 RWORK)
                                            (IWORK-REF18916 IWORK)
                                            (IFAIL-REF18917 IFAIL))
      (%%ZHBEVX JOBZ RANGE UPLO N-REF18899 KD-REF18900 AB-REF18901
       LDAB-REF18902 Q-REF18903 LDQ-REF18904 VL-REF18905 VU-REF18906
       IL-REF18907 IU-REF18908 ABSTOL-REF18909 M-REF18910 W-REF18911 Z-REF18912
       LDZ-REF18913 WORK-REF18914 RWORK-REF18915 IWORK-REF18916 IFAIL-REF18917
       INFO-REF18918))))

(CFFI:DEFCFUN ("zhbevx_2stage_" %%ZHBEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEVX_2STAGE
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18922 ':INT32) (KD-REF18923 ':INT32)
                              (LDAB-REF18925 ':INT32) (LDQ-REF18927 ':INT32)
                              (VL-REF18928 ':DOUBLE) (VU-REF18929 ':DOUBLE)
                              (IL-REF18930 ':INT32) (IU-REF18931 ':INT32)
                              (ABSTOL-REF18932 ':DOUBLE) (M-REF18933 ':INT32)
                              (LDZ-REF18936 ':INT32) (LWORK-REF18938 ':INT32)
                              (INFO-REF18942 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18922 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18923 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18925 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18927 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18928 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18929 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18930 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18931 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18932 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18933 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18936 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18938 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18942 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18924 AB) (Q-REF18926 Q)
                                            (W-REF18934 W) (Z-REF18935 Z)
                                            (WORK-REF18937 WORK)
                                            (RWORK-REF18939 RWORK)
                                            (IWORK-REF18940 IWORK)
                                            (IFAIL-REF18941 IFAIL))
      (%%ZHBEVX_2STAGE JOBZ RANGE UPLO N-REF18922 KD-REF18923 AB-REF18924
       LDAB-REF18925 Q-REF18926 LDQ-REF18927 VL-REF18928 VU-REF18929
       IL-REF18930 IU-REF18931 ABSTOL-REF18932 M-REF18933 W-REF18934 Z-REF18935
       LDZ-REF18936 WORK-REF18937 LWORK-REF18938 RWORK-REF18939 IWORK-REF18940
       IFAIL-REF18941 INFO-REF18942))))

(CFFI:DEFCFUN ("zhbgst_" %%ZHBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBGST
                   (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18945 ':INT32) (KA-REF18946 ':INT32)
                              (KB-REF18947 ':INT32) (LDAB-REF18949 ':INT32)
                              (LDBB-REF18951 ':INT32) (LDX-REF18953 ':INT32)
                              (INFO-REF18956 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18945 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18946 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18947 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18949 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18951 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18953 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18956 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18948 AB) (BB-REF18950 BB)
                                            (X-REF18952 X) (WORK-REF18954 WORK)
                                            (RWORK-REF18955 RWORK))
      (%%ZHBGST VECT UPLO N-REF18945 KA-REF18946 KB-REF18947 AB-REF18948
       LDAB-REF18949 BB-REF18950 LDBB-REF18951 X-REF18952 LDX-REF18953
       WORK-REF18954 RWORK-REF18955 INFO-REF18956))))

(CFFI:DEFCFUN ("zhbgv_" %%ZHBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBGV
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18959 ':INT32) (KA-REF18960 ':INT32)
                              (KB-REF18961 ':INT32) (LDAB-REF18963 ':INT32)
                              (LDBB-REF18965 ':INT32) (LDZ-REF18968 ':INT32)
                              (INFO-REF18971 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18959 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18960 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18961 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18963 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18965 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18968 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18971 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18962 AB) (BB-REF18964 BB)
                                            (W-REF18966 W) (Z-REF18967 Z)
                                            (WORK-REF18969 WORK)
                                            (RWORK-REF18970 RWORK))
      (%%ZHBGV JOBZ UPLO N-REF18959 KA-REF18960 KB-REF18961 AB-REF18962
       LDAB-REF18963 BB-REF18964 LDBB-REF18965 W-REF18966 Z-REF18967
       LDZ-REF18968 WORK-REF18969 RWORK-REF18970 INFO-REF18971))))

(CFFI:DEFCFUN ("zhbgvd_" %%ZHBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBGVD
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK RWORK
                    LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18974 ':INT32) (KA-REF18975 ':INT32)
                              (KB-REF18976 ':INT32) (LDAB-REF18978 ':INT32)
                              (LDBB-REF18980 ':INT32) (LDZ-REF18983 ':INT32)
                              (LWORK-REF18985 ':INT32)
                              (LRWORK-REF18987 ':INT32)
                              (LIWORK-REF18989 ':INT32) (INFO-REF18990 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18974 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18975 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18976 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18978 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18980 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18983 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18985 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18987 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18989 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18990 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18977 AB) (BB-REF18979 BB)
                                            (W-REF18981 W) (Z-REF18982 Z)
                                            (WORK-REF18984 WORK)
                                            (RWORK-REF18986 RWORK)
                                            (IWORK-REF18988 IWORK))
      (%%ZHBGVD JOBZ UPLO N-REF18974 KA-REF18975 KB-REF18976 AB-REF18977
       LDAB-REF18978 BB-REF18979 LDBB-REF18980 W-REF18981 Z-REF18982
       LDZ-REF18983 WORK-REF18984 LWORK-REF18985 RWORK-REF18986 LRWORK-REF18987
       IWORK-REF18988 LIWORK-REF18989 INFO-REF18990))))

(CFFI:DEFCFUN ("zhbgvx_" %%ZHBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBGVX
                   (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU
                    ABSTOL M W Z LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18994 ':INT32) (KA-REF18995 ':INT32)
                              (KB-REF18996 ':INT32) (LDAB-REF18998 ':INT32)
                              (LDBB-REF19000 ':INT32) (LDQ-REF19002 ':INT32)
                              (VL-REF19003 ':DOUBLE) (VU-REF19004 ':DOUBLE)
                              (IL-REF19005 ':INT32) (IU-REF19006 ':INT32)
                              (ABSTOL-REF19007 ':DOUBLE) (M-REF19008 ':INT32)
                              (LDZ-REF19011 ':INT32) (INFO-REF19016 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18994 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18995 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18996 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18998 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF19000 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19002 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19003 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19004 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19005 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19006 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19007 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19008 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19011 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19016 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18997 AB) (BB-REF18999 BB)
                                            (Q-REF19001 Q) (W-REF19009 W)
                                            (Z-REF19010 Z) (WORK-REF19012 WORK)
                                            (RWORK-REF19013 RWORK)
                                            (IWORK-REF19014 IWORK)
                                            (IFAIL-REF19015 IFAIL))
      (%%ZHBGVX JOBZ RANGE UPLO N-REF18994 KA-REF18995 KB-REF18996 AB-REF18997
       LDAB-REF18998 BB-REF18999 LDBB-REF19000 Q-REF19001 LDQ-REF19002
       VL-REF19003 VU-REF19004 IL-REF19005 IU-REF19006 ABSTOL-REF19007
       M-REF19008 W-REF19009 Z-REF19010 LDZ-REF19011 WORK-REF19012
       RWORK-REF19013 IWORK-REF19014 IFAIL-REF19015 INFO-REF19016))))

(CFFI:DEFCFUN ("zhbtrd_" %%ZHBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19019 ':INT32) (KD-REF19020 ':INT32)
                              (LDAB-REF19022 ':INT32) (LDQ-REF19026 ':INT32)
                              (INFO-REF19028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19019 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19020 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19022 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19026 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19028 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19021 AB) (D-REF19023 D)
                                            (E-REF19024 E) (Q-REF19025 Q)
                                            (WORK-REF19027 WORK))
      (%%ZHBTRD VECT UPLO N-REF19019 KD-REF19020 AB-REF19021 LDAB-REF19022
       D-REF19023 E-REF19024 Q-REF19025 LDQ-REF19026 WORK-REF19027
       INFO-REF19028))))

(CFFI:DEFCFUN ("zhecon_" %%ZHECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHECON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19030 ':INT32) (LDA-REF19032 ':INT32)
                              (ANORM-REF19034 ':DOUBLE)
                              (RCOND-REF19035 ':DOUBLE) (INFO-REF19037 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19030 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19032 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19034 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19035 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19037 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19031 A) (IPIV-REF19033 IPIV)
                                            (WORK-REF19036 WORK))
      (%%ZHECON UPLO N-REF19030 A-REF19031 LDA-REF19032 IPIV-REF19033
       ANORM-REF19034 RCOND-REF19035 WORK-REF19036 INFO-REF19037))))

(CFFI:DEFCFUN ("zhecon_3_" %%ZHECON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHECON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19039 ':INT32) (LDA-REF19041 ':INT32)
                              (ANORM-REF19044 ':DOUBLE)
                              (RCOND-REF19045 ':DOUBLE) (INFO-REF19047 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19039 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19041 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19044 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19045 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19047 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19040 A) (E-REF19042 E)
                                            (IPIV-REF19043 IPIV)
                                            (WORK-REF19046 WORK))
      (%%ZHECON_3 UPLO N-REF19039 A-REF19040 LDA-REF19041 E-REF19042
       IPIV-REF19043 ANORM-REF19044 RCOND-REF19045 WORK-REF19046
       INFO-REF19047))))

(CFFI:DEFCFUN ("zhecon_rook_" %%ZHECON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHECON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19049 ':INT32) (LDA-REF19051 ':INT32)
                              (ANORM-REF19053 ':DOUBLE)
                              (RCOND-REF19054 ':DOUBLE) (INFO-REF19056 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19049 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19051 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19053 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19054 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19056 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19050 A) (IPIV-REF19052 IPIV)
                                            (WORK-REF19055 WORK))
      (%%ZHECON_ROOK UPLO N-REF19049 A-REF19050 LDA-REF19051 IPIV-REF19052
       ANORM-REF19053 RCOND-REF19054 WORK-REF19055 INFO-REF19056))))

(CFFI:DEFCFUN ("zheequb_" %%ZHEEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19058 ':INT32) (LDA-REF19060 ':INT32)
                              (SCOND-REF19062 ':DOUBLE)
                              (AMAX-REF19063 ':DOUBLE) (INFO-REF19065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19060 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF19062 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19063 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19059 A) (S-REF19061 S)
                                            (WORK-REF19064 WORK))
      (%%ZHEEQUB UPLO N-REF19058 A-REF19059 LDA-REF19060 S-REF19061
       SCOND-REF19062 AMAX-REF19063 WORK-REF19064 INFO-REF19065))))

(CFFI:DEFCFUN ("zheev_" %%ZHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEV (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19068 ':INT32) (LDA-REF19070 ':INT32)
                              (LWORK-REF19073 ':INT32) (INFO-REF19075 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19068 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19070 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19073 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19075 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19069 A) (W-REF19071 W)
                                            (WORK-REF19072 WORK)
                                            (RWORK-REF19074 RWORK))
      (%%ZHEEV JOBZ UPLO N-REF19068 A-REF19069 LDA-REF19070 W-REF19071
       WORK-REF19072 LWORK-REF19073 RWORK-REF19074 INFO-REF19075))))

(CFFI:DEFCFUN ("zheev_2stage_" %%ZHEEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19078 ':INT32) (LDA-REF19080 ':INT32)
                              (LWORK-REF19083 ':INT32) (INFO-REF19085 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19078 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19080 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19083 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19085 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19079 A) (W-REF19081 W)
                                            (WORK-REF19082 WORK)
                                            (RWORK-REF19084 RWORK))
      (%%ZHEEV_2STAGE JOBZ UPLO N-REF19078 A-REF19079 LDA-REF19080 W-REF19081
       WORK-REF19082 LWORK-REF19083 RWORK-REF19084 INFO-REF19085))))

(CFFI:DEFCFUN ("zheevd_" %%ZHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVD
                   (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19088 ':INT32) (LDA-REF19090 ':INT32)
                              (LWORK-REF19093 ':INT32)
                              (LRWORK-REF19095 ':INT32)
                              (LIWORK-REF19097 ':INT32) (INFO-REF19098 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19090 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19093 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19095 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19097 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19098 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19089 A) (W-REF19091 W)
                                            (WORK-REF19092 WORK)
                                            (RWORK-REF19094 RWORK)
                                            (IWORK-REF19096 IWORK))
      (%%ZHEEVD JOBZ UPLO N-REF19088 A-REF19089 LDA-REF19090 W-REF19091
       WORK-REF19092 LWORK-REF19093 RWORK-REF19094 LRWORK-REF19095
       IWORK-REF19096 LIWORK-REF19097 INFO-REF19098))))

(CFFI:DEFCFUN ("zheevd_2stage_" %%ZHEEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVD_2STAGE
                   (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19101 ':INT32) (LDA-REF19103 ':INT32)
                              (LWORK-REF19106 ':INT32)
                              (LRWORK-REF19108 ':INT32)
                              (LIWORK-REF19110 ':INT32) (INFO-REF19111 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19103 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19106 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19108 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19110 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19111 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19102 A) (W-REF19104 W)
                                            (WORK-REF19105 WORK)
                                            (RWORK-REF19107 RWORK)
                                            (IWORK-REF19109 IWORK))
      (%%ZHEEVD_2STAGE JOBZ UPLO N-REF19101 A-REF19102 LDA-REF19103 W-REF19104
       WORK-REF19105 LWORK-REF19106 RWORK-REF19107 LRWORK-REF19108
       IWORK-REF19109 LIWORK-REF19110 INFO-REF19111))))

(CFFI:DEFCFUN ("zheevr_" %%ZHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVR
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19115 ':INT32) (LDA-REF19117 ':INT32)
                              (VL-REF19118 ':DOUBLE) (VU-REF19119 ':DOUBLE)
                              (IL-REF19120 ':INT32) (IU-REF19121 ':INT32)
                              (ABSTOL-REF19122 ':DOUBLE) (M-REF19123 ':INT32)
                              (LDZ-REF19126 ':INT32) (LWORK-REF19129 ':INT32)
                              (LRWORK-REF19131 ':INT32)
                              (LIWORK-REF19133 ':INT32) (INFO-REF19134 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19115 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19117 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19118 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19119 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19120 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19121 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19122 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19123 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19126 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19129 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19131 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19133 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19134 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19116 A) (W-REF19124 W)
                                            (Z-REF19125 Z)
                                            (ISUPPZ-REF19127 ISUPPZ)
                                            (WORK-REF19128 WORK)
                                            (RWORK-REF19130 RWORK)
                                            (IWORK-REF19132 IWORK))
      (%%ZHEEVR JOBZ RANGE UPLO N-REF19115 A-REF19116 LDA-REF19117 VL-REF19118
       VU-REF19119 IL-REF19120 IU-REF19121 ABSTOL-REF19122 M-REF19123
       W-REF19124 Z-REF19125 LDZ-REF19126 ISUPPZ-REF19127 WORK-REF19128
       LWORK-REF19129 RWORK-REF19130 LRWORK-REF19131 IWORK-REF19132
       LIWORK-REF19133 INFO-REF19134))))

(CFFI:DEFCFUN ("zheevr_2stage_" %%ZHEEVR_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVR_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVR_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19138 ':INT32) (LDA-REF19140 ':INT32)
                              (VL-REF19141 ':DOUBLE) (VU-REF19142 ':DOUBLE)
                              (IL-REF19143 ':INT32) (IU-REF19144 ':INT32)
                              (ABSTOL-REF19145 ':DOUBLE) (M-REF19146 ':INT32)
                              (LDZ-REF19149 ':INT32) (LWORK-REF19152 ':INT32)
                              (LRWORK-REF19154 ':INT32)
                              (LIWORK-REF19156 ':INT32) (INFO-REF19157 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19138 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19140 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19141 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19142 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19143 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19144 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19145 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19146 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19149 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19152 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19154 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19156 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19157 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19139 A) (W-REF19147 W)
                                            (Z-REF19148 Z)
                                            (ISUPPZ-REF19150 ISUPPZ)
                                            (WORK-REF19151 WORK)
                                            (RWORK-REF19153 RWORK)
                                            (IWORK-REF19155 IWORK))
      (%%ZHEEVR_2STAGE JOBZ RANGE UPLO N-REF19138 A-REF19139 LDA-REF19140
       VL-REF19141 VU-REF19142 IL-REF19143 IU-REF19144 ABSTOL-REF19145
       M-REF19146 W-REF19147 Z-REF19148 LDZ-REF19149 ISUPPZ-REF19150
       WORK-REF19151 LWORK-REF19152 RWORK-REF19153 LRWORK-REF19154
       IWORK-REF19155 LIWORK-REF19156 INFO-REF19157))))

(CFFI:DEFCFUN ("zheevx_" %%ZHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVX
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19161 ':INT32) (LDA-REF19163 ':INT32)
                              (VL-REF19164 ':DOUBLE) (VU-REF19165 ':DOUBLE)
                              (IL-REF19166 ':INT32) (IU-REF19167 ':INT32)
                              (ABSTOL-REF19168 ':DOUBLE) (M-REF19169 ':INT32)
                              (LDZ-REF19172 ':INT32) (LWORK-REF19174 ':INT32)
                              (INFO-REF19178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19161 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19163 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19164 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19165 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19166 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19167 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19168 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19169 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19172 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19174 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19178 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19162 A) (W-REF19170 W)
                                            (Z-REF19171 Z) (WORK-REF19173 WORK)
                                            (RWORK-REF19175 RWORK)
                                            (IWORK-REF19176 IWORK)
                                            (IFAIL-REF19177 IFAIL))
      (%%ZHEEVX JOBZ RANGE UPLO N-REF19161 A-REF19162 LDA-REF19163 VL-REF19164
       VU-REF19165 IL-REF19166 IU-REF19167 ABSTOL-REF19168 M-REF19169
       W-REF19170 Z-REF19171 LDZ-REF19172 WORK-REF19173 LWORK-REF19174
       RWORK-REF19175 IWORK-REF19176 IFAIL-REF19177 INFO-REF19178))))

(CFFI:DEFCFUN ("zheevx_2stage_" %%ZHEEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVX_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19182 ':INT32) (LDA-REF19184 ':INT32)
                              (VL-REF19185 ':DOUBLE) (VU-REF19186 ':DOUBLE)
                              (IL-REF19187 ':INT32) (IU-REF19188 ':INT32)
                              (ABSTOL-REF19189 ':DOUBLE) (M-REF19190 ':INT32)
                              (LDZ-REF19193 ':INT32) (LWORK-REF19195 ':INT32)
                              (INFO-REF19199 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19182 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19184 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19185 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19186 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19187 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19188 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19189 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19190 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19193 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19195 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19199 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19183 A) (W-REF19191 W)
                                            (Z-REF19192 Z) (WORK-REF19194 WORK)
                                            (RWORK-REF19196 RWORK)
                                            (IWORK-REF19197 IWORK)
                                            (IFAIL-REF19198 IFAIL))
      (%%ZHEEVX_2STAGE JOBZ RANGE UPLO N-REF19182 A-REF19183 LDA-REF19184
       VL-REF19185 VU-REF19186 IL-REF19187 IU-REF19188 ABSTOL-REF19189
       M-REF19190 W-REF19191 Z-REF19192 LDZ-REF19193 WORK-REF19194
       LWORK-REF19195 RWORK-REF19196 IWORK-REF19197 IFAIL-REF19198
       INFO-REF19199))))

(CFFI:DEFCFUN ("zhegs2_" %%ZHEGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19200 ':INT32) (N-REF19202 ':INT32)
                              (LDA-REF19204 ':INT32) (LDB-REF19206 ':INT32)
                              (INFO-REF19207 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19200 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19204 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19206 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19207 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19203 A) (B-REF19205 B))
      (%%ZHEGS2 ITYPE-REF19200 UPLO N-REF19202 A-REF19203 LDA-REF19204
       B-REF19205 LDB-REF19206 INFO-REF19207))))

(CFFI:DEFCFUN ("zhegst_" %%ZHEGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19208 ':INT32) (N-REF19210 ':INT32)
                              (LDA-REF19212 ':INT32) (LDB-REF19214 ':INT32)
                              (INFO-REF19215 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19208 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19210 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19212 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19214 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19215 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19211 A) (B-REF19213 B))
      (%%ZHEGST ITYPE-REF19208 UPLO N-REF19210 A-REF19211 LDA-REF19212
       B-REF19213 LDB-REF19214 INFO-REF19215))))

(CFFI:DEFCFUN ("zhegv_" %%ZHEGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGV
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19216 ':INT32) (N-REF19219 ':INT32)
                              (LDA-REF19221 ':INT32) (LDB-REF19223 ':INT32)
                              (LWORK-REF19226 ':INT32) (INFO-REF19228 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19216 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19219 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19223 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19226 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19228 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19220 A) (B-REF19222 B)
                                            (W-REF19224 W) (WORK-REF19225 WORK)
                                            (RWORK-REF19227 RWORK))
      (%%ZHEGV ITYPE-REF19216 JOBZ UPLO N-REF19219 A-REF19220 LDA-REF19221
       B-REF19222 LDB-REF19223 W-REF19224 WORK-REF19225 LWORK-REF19226
       RWORK-REF19227 INFO-REF19228))))

(CFFI:DEFCFUN ("zhegv_2stage_" %%ZHEGV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGV_2STAGE
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGV_2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19229 ':INT32) (N-REF19232 ':INT32)
                              (LDA-REF19234 ':INT32) (LDB-REF19236 ':INT32)
                              (LWORK-REF19239 ':INT32) (INFO-REF19241 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19229 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19234 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19236 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19239 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19241 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19233 A) (B-REF19235 B)
                                            (W-REF19237 W) (WORK-REF19238 WORK)
                                            (RWORK-REF19240 RWORK))
      (%%ZHEGV_2STAGE ITYPE-REF19229 JOBZ UPLO N-REF19232 A-REF19233
       LDA-REF19234 B-REF19235 LDB-REF19236 W-REF19237 WORK-REF19238
       LWORK-REF19239 RWORK-REF19240 INFO-REF19241))))

(CFFI:DEFCFUN ("zhegvd_" %%ZHEGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGVD
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19242 ':INT32) (N-REF19245 ':INT32)
                              (LDA-REF19247 ':INT32) (LDB-REF19249 ':INT32)
                              (LWORK-REF19252 ':INT32)
                              (LRWORK-REF19254 ':INT32)
                              (LIWORK-REF19256 ':INT32) (INFO-REF19257 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19242 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19245 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19249 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19252 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19254 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19256 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19257 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19246 A) (B-REF19248 B)
                                            (W-REF19250 W) (WORK-REF19251 WORK)
                                            (RWORK-REF19253 RWORK)
                                            (IWORK-REF19255 IWORK))
      (%%ZHEGVD ITYPE-REF19242 JOBZ UPLO N-REF19245 A-REF19246 LDA-REF19247
       B-REF19248 LDB-REF19249 W-REF19250 WORK-REF19251 LWORK-REF19252
       RWORK-REF19253 LRWORK-REF19254 IWORK-REF19255 LIWORK-REF19256
       INFO-REF19257))))

(CFFI:DEFCFUN ("zhegvx_" %%ZHEGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGVX
                   (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W
                    Z LDZ WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19258 ':INT32) (N-REF19262 ':INT32)
                              (LDA-REF19264 ':INT32) (LDB-REF19266 ':INT32)
                              (VL-REF19267 ':DOUBLE) (VU-REF19268 ':DOUBLE)
                              (IL-REF19269 ':INT32) (IU-REF19270 ':INT32)
                              (ABSTOL-REF19271 ':DOUBLE) (M-REF19272 ':INT32)
                              (LDZ-REF19275 ':INT32) (LWORK-REF19277 ':INT32)
                              (INFO-REF19281 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19258 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19262 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19264 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19266 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19267 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19268 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19269 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19270 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19271 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19272 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19275 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19277 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19281 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19263 A) (B-REF19265 B)
                                            (W-REF19273 W) (Z-REF19274 Z)
                                            (WORK-REF19276 WORK)
                                            (RWORK-REF19278 RWORK)
                                            (IWORK-REF19279 IWORK)
                                            (IFAIL-REF19280 IFAIL))
      (%%ZHEGVX ITYPE-REF19258 JOBZ RANGE UPLO N-REF19262 A-REF19263
       LDA-REF19264 B-REF19265 LDB-REF19266 VL-REF19267 VU-REF19268 IL-REF19269
       IU-REF19270 ABSTOL-REF19271 M-REF19272 W-REF19273 Z-REF19274
       LDZ-REF19275 WORK-REF19276 LWORK-REF19277 RWORK-REF19278 IWORK-REF19279
       IFAIL-REF19280 INFO-REF19281))))

(CFFI:DEFCFUN ("zherfs_" %%ZHERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHERFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19283 ':INT32) (NRHS-REF19284 ':INT32)
                              (LDA-REF19286 ':INT32) (LDAF-REF19288 ':INT32)
                              (LDB-REF19291 ':INT32) (LDX-REF19293 ':INT32)
                              (INFO-REF19298 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19284 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19286 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19288 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19291 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19293 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19298 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19285 A) (AF-REF19287 AF)
                                            (IPIV-REF19289 IPIV) (B-REF19290 B)
                                            (X-REF19292 X) (FERR-REF19294 FERR)
                                            (BERR-REF19295 BERR)
                                            (WORK-REF19296 WORK)
                                            (RWORK-REF19297 RWORK))
      (%%ZHERFS UPLO N-REF19283 NRHS-REF19284 A-REF19285 LDA-REF19286
       AF-REF19287 LDAF-REF19288 IPIV-REF19289 B-REF19290 LDB-REF19291
       X-REF19292 LDX-REF19293 FERR-REF19294 BERR-REF19295 WORK-REF19296
       RWORK-REF19297 INFO-REF19298))))

(CFFI:DEFCFUN ("zherfsx_" %%ZHERFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHERFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19301 ':INT32) (NRHS-REF19302 ':INT32)
                              (LDA-REF19304 ':INT32) (LDAF-REF19306 ':INT32)
                              (LDB-REF19310 ':INT32) (LDX-REF19312 ':INT32)
                              (RCOND-REF19313 ':DOUBLE)
                              (N_ERR_BNDS-REF19315 ':INT32)
                              (NPARAMS-REF19318 ':INT32)
                              (INFO-REF19322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19301 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19302 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19304 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19306 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19310 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19312 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19313 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19315 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19318 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19303 A) (AF-REF19305 AF)
                                            (IPIV-REF19307 IPIV) (S-REF19308 S)
                                            (B-REF19309 B) (X-REF19311 X)
                                            (BERR-REF19314 BERR)
                                            (ERR_BNDS_NORM-REF19316
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF19317
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF19319 PARAMS)
                                            (WORK-REF19320 WORK)
                                            (RWORK-REF19321 RWORK))
      (%%ZHERFSX UPLO EQUED N-REF19301 NRHS-REF19302 A-REF19303 LDA-REF19304
       AF-REF19305 LDAF-REF19306 IPIV-REF19307 S-REF19308 B-REF19309
       LDB-REF19310 X-REF19311 LDX-REF19312 RCOND-REF19313 BERR-REF19314
       N_ERR_BNDS-REF19315 ERR_BNDS_NORM-REF19316 ERR_BNDS_COMP-REF19317
       NPARAMS-REF19318 PARAMS-REF19319 WORK-REF19320 RWORK-REF19321
       INFO-REF19322))))

(CFFI:DEFCFUN ("zhesv_" %%ZHESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19324 ':INT32) (NRHS-REF19325 ':INT32)
                              (LDA-REF19327 ':INT32) (LDB-REF19330 ':INT32)
                              (LWORK-REF19332 ':INT32) (INFO-REF19333 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19324 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19325 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19327 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19330 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19332 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19333 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19326 A) (IPIV-REF19328 IPIV)
                                            (B-REF19329 B) (WORK-REF19331 WORK))
      (%%ZHESV UPLO N-REF19324 NRHS-REF19325 A-REF19326 LDA-REF19327
       IPIV-REF19328 B-REF19329 LDB-REF19330 WORK-REF19331 LWORK-REF19332
       INFO-REF19333))))

(CFFI:DEFCFUN ("zhesv_aa_" %%ZHESV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19335 ':INT32) (NRHS-REF19336 ':INT32)
                              (LDA-REF19338 ':INT32) (LDB-REF19341 ':INT32)
                              (LWORK-REF19343 ':INT32) (INFO-REF19344 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19335 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19336 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19338 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19341 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19343 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19344 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19337 A) (IPIV-REF19339 IPIV)
                                            (B-REF19340 B) (WORK-REF19342 WORK))
      (%%ZHESV_AA UPLO N-REF19335 NRHS-REF19336 A-REF19337 LDA-REF19338
       IPIV-REF19339 B-REF19340 LDB-REF19341 WORK-REF19342 LWORK-REF19343
       INFO-REF19344))))

(CFFI:DEFCFUN ("zhesv_aa_2stage_" %%ZHESV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19346 ':INT32) (NRHS-REF19347 ':INT32)
                              (LDA-REF19349 ':INT32) (LTB-REF19351 ':INT32)
                              (LDB-REF19355 ':INT32) (LWORK-REF19357 ':INT32)
                              (INFO-REF19358 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19346 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19347 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19349 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19351 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19355 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19357 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19358 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19348 A) (TB-REF19350 TB)
                                            (IPIV-REF19352 IPIV)
                                            (IPIV2-REF19353 IPIV2)
                                            (B-REF19354 B) (WORK-REF19356 WORK))
      (%%ZHESV_AA_2STAGE UPLO N-REF19346 NRHS-REF19347 A-REF19348 LDA-REF19349
       TB-REF19350 LTB-REF19351 IPIV-REF19352 IPIV2-REF19353 B-REF19354
       LDB-REF19355 WORK-REF19356 LWORK-REF19357 INFO-REF19358))))

(CFFI:DEFCFUN ("zhesv_rk_" %%ZHESV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19360 ':INT32) (NRHS-REF19361 ':INT32)
                              (LDA-REF19363 ':INT32) (LDB-REF19367 ':INT32)
                              (LWORK-REF19369 ':INT32) (INFO-REF19370 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19360 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19361 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19363 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19367 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19369 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19370 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19362 A) (E-REF19364 E)
                                            (IPIV-REF19365 IPIV) (B-REF19366 B)
                                            (WORK-REF19368 WORK))
      (%%ZHESV_RK UPLO N-REF19360 NRHS-REF19361 A-REF19362 LDA-REF19363
       E-REF19364 IPIV-REF19365 B-REF19366 LDB-REF19367 WORK-REF19368
       LWORK-REF19369 INFO-REF19370))))

(CFFI:DEFCFUN ("zhesv_rook_" %%ZHESV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19372 ':INT32) (NRHS-REF19373 ':INT32)
                              (LDA-REF19375 ':INT32) (LDB-REF19378 ':INT32)
                              (LWORK-REF19380 ':INT32) (INFO-REF19381 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19372 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19373 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19375 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19378 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19380 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19381 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19374 A) (IPIV-REF19376 IPIV)
                                            (B-REF19377 B) (WORK-REF19379 WORK))
      (%%ZHESV_ROOK UPLO N-REF19372 NRHS-REF19373 A-REF19374 LDA-REF19375
       IPIV-REF19376 B-REF19377 LDB-REF19378 WORK-REF19379 LWORK-REF19380
       INFO-REF19381))))

(CFFI:DEFCFUN ("zhesvx_" %%ZHESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19384 ':INT32) (NRHS-REF19385 ':INT32)
                              (LDA-REF19387 ':INT32) (LDAF-REF19389 ':INT32)
                              (LDB-REF19392 ':INT32) (LDX-REF19394 ':INT32)
                              (RCOND-REF19395 ':DOUBLE)
                              (LWORK-REF19399 ':INT32) (INFO-REF19401 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19384 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19385 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19387 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19389 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19392 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19394 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19395 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19399 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19401 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19386 A) (AF-REF19388 AF)
                                            (IPIV-REF19390 IPIV) (B-REF19391 B)
                                            (X-REF19393 X) (FERR-REF19396 FERR)
                                            (BERR-REF19397 BERR)
                                            (WORK-REF19398 WORK)
                                            (RWORK-REF19400 RWORK))
      (%%ZHESVX FACT UPLO N-REF19384 NRHS-REF19385 A-REF19386 LDA-REF19387
       AF-REF19388 LDAF-REF19389 IPIV-REF19390 B-REF19391 LDB-REF19392
       X-REF19393 LDX-REF19394 RCOND-REF19395 FERR-REF19396 BERR-REF19397
       WORK-REF19398 LWORK-REF19399 RWORK-REF19400 INFO-REF19401))))

(CFFI:DEFCFUN ("zhesvxx_" %%ZHESVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19404 ':INT32) (NRHS-REF19405 ':INT32)
                              (LDA-REF19407 ':INT32) (LDAF-REF19409 ':INT32)
                              (LDB-REF19414 ':INT32) (LDX-REF19416 ':INT32)
                              (RCOND-REF19417 ':DOUBLE)
                              (RPVGRW-REF19418 ':DOUBLE)
                              (N_ERR_BNDS-REF19420 ':INT32)
                              (NPARAMS-REF19423 ':INT32)
                              (INFO-REF19427 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19404 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19405 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19407 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19409 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19414 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19416 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19417 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF19418 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19420 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19423 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19427 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19406 A) (AF-REF19408 AF)
                                            (IPIV-REF19410 IPIV) (S-REF19412 S)
                                            (B-REF19413 B) (X-REF19415 X)
                                            (BERR-REF19419 BERR)
                                            (ERR_BNDS_NORM-REF19421
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF19422
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF19424 PARAMS)
                                            (WORK-REF19425 WORK)
                                            (RWORK-REF19426 RWORK))
      (%%ZHESVXX FACT UPLO N-REF19404 NRHS-REF19405 A-REF19406 LDA-REF19407
       AF-REF19408 LDAF-REF19409 IPIV-REF19410 EQUED S-REF19412 B-REF19413
       LDB-REF19414 X-REF19415 LDX-REF19416 RCOND-REF19417 RPVGRW-REF19418
       BERR-REF19419 N_ERR_BNDS-REF19420 ERR_BNDS_NORM-REF19421
       ERR_BNDS_COMP-REF19422 NPARAMS-REF19423 PARAMS-REF19424 WORK-REF19425
       RWORK-REF19426 INFO-REF19427))))

(CFFI:DEFCFUN ("zheswapr_" %%ZHESWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %ZHESWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19429 ':INT32) (LDA-REF19431 ':INT32)
                              (I1-REF19432 ':INT32) (I2-REF19433 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19429 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19431 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF19432 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF19433 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19430 A))
      (%%ZHESWAPR UPLO N-REF19429 A-REF19430 LDA-REF19431 I1-REF19432
       I2-REF19433))))

(CFFI:DEFCFUN ("zhetd2_" %%ZHETD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETD2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19435 ':INT32) (LDA-REF19437 ':INT32)
                              (INFO-REF19441 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19435 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19437 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19441 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19436 A) (D-REF19438 D)
                                            (E-REF19439 E) (TAU-REF19440 TAU))
      (%%ZHETD2 UPLO N-REF19435 A-REF19436 LDA-REF19437 D-REF19438 E-REF19439
       TAU-REF19440 INFO-REF19441))))

(CFFI:DEFCFUN ("zhetf2_" %%ZHETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19443 ':INT32) (LDA-REF19445 ':INT32)
                              (INFO-REF19447 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19443 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19445 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19447 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19444 A) (IPIV-REF19446 IPIV))
      (%%ZHETF2 UPLO N-REF19443 A-REF19444 LDA-REF19445 IPIV-REF19446
       INFO-REF19447))))

(CFFI:DEFCFUN ("zhetf2_rk_" %%ZHETF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19449 ':INT32) (LDA-REF19451 ':INT32)
                              (INFO-REF19454 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19449 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19451 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19454 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19450 A) (E-REF19452 E)
                                            (IPIV-REF19453 IPIV))
      (%%ZHETF2_RK UPLO N-REF19449 A-REF19450 LDA-REF19451 E-REF19452
       IPIV-REF19453 INFO-REF19454))))

(CFFI:DEFCFUN ("zhetf2_rook_" %%ZHETF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19456 ':INT32) (LDA-REF19458 ':INT32)
                              (INFO-REF19460 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19456 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19458 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19460 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19457 A) (IPIV-REF19459 IPIV))
      (%%ZHETF2_ROOK UPLO N-REF19456 A-REF19457 LDA-REF19458 IPIV-REF19459
       INFO-REF19460))))

(CFFI:DEFCFUN ("zhetrd_" %%ZHETRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19462 ':INT32) (LDA-REF19464 ':INT32)
                              (LWORK-REF19469 ':INT32) (INFO-REF19470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19462 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19464 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19469 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19463 A) (D-REF19465 D)
                                            (E-REF19466 E) (TAU-REF19467 TAU)
                                            (WORK-REF19468 WORK))
      (%%ZHETRD UPLO N-REF19462 A-REF19463 LDA-REF19464 D-REF19465 E-REF19466
       TAU-REF19467 WORK-REF19468 LWORK-REF19469 INFO-REF19470))))

(CFFI:DEFCFUN ("zhetrd_2stage_" %%ZHETRD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (HOUS2 :POINTER)
  (LHOUS2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRD_2STAGE
                   (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        HOUS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19473 ':INT32) (LDA-REF19475 ':INT32)
                              (LHOUS2-REF19480 ':INT32)
                              (LWORK-REF19482 ':INT32) (INFO-REF19483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19473 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19475 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF19480 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19482 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19474 A) (D-REF19476 D)
                                            (E-REF19477 E) (TAU-REF19478 TAU)
                                            (HOUS2-REF19479 HOUS2)
                                            (WORK-REF19481 WORK))
      (%%ZHETRD_2STAGE VECT UPLO N-REF19473 A-REF19474 LDA-REF19475 D-REF19476
       E-REF19477 TAU-REF19478 HOUS2-REF19479 LHOUS2-REF19480 WORK-REF19481
       LWORK-REF19482 INFO-REF19483))))

(CFFI:DEFCFUN ("zhetrd_he2hb_" %%ZHETRD_HE2HB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRD_HE2HB (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRD_HE2HB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19485 ':INT32) (KD-REF19486 ':INT32)
                              (LDA-REF19488 ':INT32) (LDAB-REF19490 ':INT32)
                              (LWORK-REF19493 ':INT32) (INFO-REF19494 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19485 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19486 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19488 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19490 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19493 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19494 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19487 A) (AB-REF19489 AB)
                                            (TAU-REF19491 TAU)
                                            (WORK-REF19492 WORK))
      (%%ZHETRD_HE2HB UPLO N-REF19485 KD-REF19486 A-REF19487 LDA-REF19488
       AB-REF19489 LDAB-REF19490 TAU-REF19491 WORK-REF19492 LWORK-REF19493
       INFO-REF19494))))

(CFFI:DEFCFUN ("zhetrf_" %%ZHETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19496 ':INT32) (LDA-REF19498 ':INT32)
                              (LWORK-REF19501 ':INT32) (INFO-REF19502 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19496 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19498 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19501 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19502 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19497 A) (IPIV-REF19499 IPIV)
                                            (WORK-REF19500 WORK))
      (%%ZHETRF UPLO N-REF19496 A-REF19497 LDA-REF19498 IPIV-REF19499
       WORK-REF19500 LWORK-REF19501 INFO-REF19502))))

(CFFI:DEFCFUN ("zhetrf_aa_" %%ZHETRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19504 ':INT32) (LDA-REF19506 ':INT32)
                              (LWORK-REF19509 ':INT32) (INFO-REF19510 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19504 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19506 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19509 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19510 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19505 A) (IPIV-REF19507 IPIV)
                                            (WORK-REF19508 WORK))
      (%%ZHETRF_AA UPLO N-REF19504 A-REF19505 LDA-REF19506 IPIV-REF19507
       WORK-REF19508 LWORK-REF19509 INFO-REF19510))))

(CFFI:DEFCFUN ("zhetrf_aa_2stage_" %%ZHETRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19512 ':INT32) (LDA-REF19514 ':INT32)
                              (LTB-REF19516 ':INT32) (LWORK-REF19520 ':INT32)
                              (INFO-REF19521 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19512 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19514 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19516 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19520 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19521 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19513 A) (TB-REF19515 TB)
                                            (IPIV-REF19517 IPIV)
                                            (IPIV2-REF19518 IPIV2)
                                            (WORK-REF19519 WORK))
      (%%ZHETRF_AA_2STAGE UPLO N-REF19512 A-REF19513 LDA-REF19514 TB-REF19515
       LTB-REF19516 IPIV-REF19517 IPIV2-REF19518 WORK-REF19519 LWORK-REF19520
       INFO-REF19521))))

(CFFI:DEFCFUN ("zhetrf_rk_" %%ZHETRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19523 ':INT32) (LDA-REF19525 ':INT32)
                              (LWORK-REF19529 ':INT32) (INFO-REF19530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19523 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19525 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19529 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19524 A) (E-REF19526 E)
                                            (IPIV-REF19527 IPIV)
                                            (WORK-REF19528 WORK))
      (%%ZHETRF_RK UPLO N-REF19523 A-REF19524 LDA-REF19525 E-REF19526
       IPIV-REF19527 WORK-REF19528 LWORK-REF19529 INFO-REF19530))))

(CFFI:DEFCFUN ("zhetrf_rook_" %%ZHETRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19532 ':INT32) (LDA-REF19534 ':INT32)
                              (LWORK-REF19537 ':INT32) (INFO-REF19538 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19532 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19534 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19537 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19538 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19533 A) (IPIV-REF19535 IPIV)
                                            (WORK-REF19536 WORK))
      (%%ZHETRF_ROOK UPLO N-REF19532 A-REF19533 LDA-REF19534 IPIV-REF19535
       WORK-REF19536 LWORK-REF19537 INFO-REF19538))))

(CFFI:DEFCFUN ("zhetri_" %%ZHETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19540 ':INT32) (LDA-REF19542 ':INT32)
                              (INFO-REF19545 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19540 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19542 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19545 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19541 A) (IPIV-REF19543 IPIV)
                                            (WORK-REF19544 WORK))
      (%%ZHETRI UPLO N-REF19540 A-REF19541 LDA-REF19542 IPIV-REF19543
       WORK-REF19544 INFO-REF19545))))

(CFFI:DEFCFUN ("zhetri2_" %%ZHETRI2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19547 ':INT32) (LDA-REF19549 ':INT32)
                              (LWORK-REF19552 ':INT32) (INFO-REF19553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19547 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19549 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19552 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19548 A) (IPIV-REF19550 IPIV)
                                            (WORK-REF19551 WORK))
      (%%ZHETRI2 UPLO N-REF19547 A-REF19548 LDA-REF19549 IPIV-REF19550
       WORK-REF19551 LWORK-REF19552 INFO-REF19553))))

(CFFI:DEFCFUN ("zhetri2x_" %%ZHETRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19555 ':INT32) (LDA-REF19557 ':INT32)
                              (NB-REF19560 ':INT32) (INFO-REF19561 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19560 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19561 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19556 A) (IPIV-REF19558 IPIV)
                                            (WORK-REF19559 WORK))
      (%%ZHETRI2X UPLO N-REF19555 A-REF19556 LDA-REF19557 IPIV-REF19558
       WORK-REF19559 NB-REF19560 INFO-REF19561))))

(CFFI:DEFCFUN ("zhetri_3_" %%ZHETRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19563 ':INT32) (LDA-REF19565 ':INT32)
                              (LWORK-REF19569 ':INT32) (INFO-REF19570 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19563 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19565 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19569 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19570 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19564 A) (E-REF19566 E)
                                            (IPIV-REF19567 IPIV)
                                            (WORK-REF19568 WORK))
      (%%ZHETRI_3 UPLO N-REF19563 A-REF19564 LDA-REF19565 E-REF19566
       IPIV-REF19567 WORK-REF19568 LWORK-REF19569 INFO-REF19570))))

(CFFI:DEFCFUN ("zhetri_3x_" %%ZHETRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19572 ':INT32) (LDA-REF19574 ':INT32)
                              (NB-REF19578 ':INT32) (INFO-REF19579 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19574 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19578 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19579 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19573 A) (E-REF19575 E)
                                            (IPIV-REF19576 IPIV)
                                            (WORK-REF19577 WORK))
      (%%ZHETRI_3X UPLO N-REF19572 A-REF19573 LDA-REF19574 E-REF19575
       IPIV-REF19576 WORK-REF19577 NB-REF19578 INFO-REF19579))))

(CFFI:DEFCFUN ("zhetri_rook_" %%ZHETRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19581 ':INT32) (LDA-REF19583 ':INT32)
                              (INFO-REF19586 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19581 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19583 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19586 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19582 A) (IPIV-REF19584 IPIV)
                                            (WORK-REF19585 WORK))
      (%%ZHETRI_ROOK UPLO N-REF19581 A-REF19582 LDA-REF19583 IPIV-REF19584
       WORK-REF19585 INFO-REF19586))))

(CFFI:DEFCFUN ("zhetrs_" %%ZHETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19588 ':INT32) (NRHS-REF19589 ':INT32)
                              (LDA-REF19591 ':INT32) (LDB-REF19594 ':INT32)
                              (INFO-REF19595 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19588 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19589 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19591 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19594 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19595 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19590 A) (IPIV-REF19592 IPIV)
                                            (B-REF19593 B))
      (%%ZHETRS UPLO N-REF19588 NRHS-REF19589 A-REF19590 LDA-REF19591
       IPIV-REF19592 B-REF19593 LDB-REF19594 INFO-REF19595))))

(CFFI:DEFCFUN ("zhetrs2_" %%ZHETRS2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19597 ':INT32) (NRHS-REF19598 ':INT32)
                              (LDA-REF19600 ':INT32) (LDB-REF19603 ':INT32)
                              (INFO-REF19605 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19597 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19598 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19600 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19603 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19605 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19599 A) (IPIV-REF19601 IPIV)
                                            (B-REF19602 B) (WORK-REF19604 WORK))
      (%%ZHETRS2 UPLO N-REF19597 NRHS-REF19598 A-REF19599 LDA-REF19600
       IPIV-REF19601 B-REF19602 LDB-REF19603 WORK-REF19604 INFO-REF19605))))

(CFFI:DEFCFUN ("zhetrs_3_" %%ZHETRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19607 ':INT32) (NRHS-REF19608 ':INT32)
                              (LDA-REF19610 ':INT32) (LDB-REF19614 ':INT32)
                              (INFO-REF19615 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19607 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19608 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19610 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19614 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19615 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19609 A) (E-REF19611 E)
                                            (IPIV-REF19612 IPIV) (B-REF19613 B))
      (%%ZHETRS_3 UPLO N-REF19607 NRHS-REF19608 A-REF19609 LDA-REF19610
       E-REF19611 IPIV-REF19612 B-REF19613 LDB-REF19614 INFO-REF19615))))

(CFFI:DEFCFUN ("zhetrs_aa_" %%ZHETRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19617 ':INT32) (NRHS-REF19618 ':INT32)
                              (LDA-REF19620 ':INT32) (LDB-REF19623 ':INT32)
                              (LWORK-REF19625 ':INT32) (INFO-REF19626 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19617 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19618 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19620 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19623 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19625 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19626 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19619 A) (IPIV-REF19621 IPIV)
                                            (B-REF19622 B) (WORK-REF19624 WORK))
      (%%ZHETRS_AA UPLO N-REF19617 NRHS-REF19618 A-REF19619 LDA-REF19620
       IPIV-REF19621 B-REF19622 LDB-REF19623 WORK-REF19624 LWORK-REF19625
       INFO-REF19626))))

(CFFI:DEFCFUN ("zhetrs_aa_2stage_" %%ZHETRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19628 ':INT32) (NRHS-REF19629 ':INT32)
                              (LDA-REF19631 ':INT32) (LTB-REF19633 ':INT32)
                              (LDB-REF19637 ':INT32) (INFO-REF19638 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19628 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19629 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19631 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19633 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19637 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19638 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19630 A) (TB-REF19632 TB)
                                            (IPIV-REF19634 IPIV)
                                            (IPIV2-REF19635 IPIV2)
                                            (B-REF19636 B))
      (%%ZHETRS_AA_2STAGE UPLO N-REF19628 NRHS-REF19629 A-REF19630 LDA-REF19631
       TB-REF19632 LTB-REF19633 IPIV-REF19634 IPIV2-REF19635 B-REF19636
       LDB-REF19637 INFO-REF19638))))

(CFFI:DEFCFUN ("zhetrs_rook_" %%ZHETRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19640 ':INT32) (NRHS-REF19641 ':INT32)
                              (LDA-REF19643 ':INT32) (LDB-REF19646 ':INT32)
                              (INFO-REF19647 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19640 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19641 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19643 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19646 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19647 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19642 A) (IPIV-REF19644 IPIV)
                                            (B-REF19645 B))
      (%%ZHETRS_ROOK UPLO N-REF19640 NRHS-REF19641 A-REF19642 LDA-REF19643
       IPIV-REF19644 B-REF19645 LDB-REF19646 INFO-REF19647))))

(CFFI:DEFCFUN ("zhfrk_" %%ZHFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %ZHFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHFRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19651 ':INT32) (K-REF19652 ':INT32)
                              (ALPHA-REF19653 ':DOUBLE) (LDA-REF19655 ':INT32)
                              (BETA-REF19656 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19651 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19652 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19653 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19655 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19656 :DOUBLE) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19654 A) (C-REF19657 C))
      (%%ZHFRK TRANSR UPLO TRANS N-REF19651 K-REF19652 ALPHA-REF19653
       A-REF19654 LDA-REF19655 BETA-REF19656 C-REF19657))))

(CFFI:DEFCFUN ("zhgeqz_" %%ZHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHGEQZ
                   (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHA BETA Q LDQ Z
                    LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHGEQZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19661 ':INT32) (ILO-REF19662 ':INT32)
                              (IHI-REF19663 ':INT32) (LDH-REF19665 ':INT32)
                              (LDT-REF19667 ':INT32) (LDQ-REF19671 ':INT32)
                              (LDZ-REF19673 ':INT32) (LWORK-REF19675 ':INT32)
                              (INFO-REF19677 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19661 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19662 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19663 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19665 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19667 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19671 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19673 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19675 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19677 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19664 H) (T-REF19666 T)
                                            (ALPHA-REF19668 ALPHA)
                                            (BETA-REF19669 BETA) (Q-REF19670 Q)
                                            (Z-REF19672 Z) (WORK-REF19674 WORK)
                                            (RWORK-REF19676 RWORK))
      (%%ZHGEQZ JOB COMPQ COMPZ N-REF19661 ILO-REF19662 IHI-REF19663 H-REF19664
       LDH-REF19665 T-REF19666 LDT-REF19667 ALPHA-REF19668 BETA-REF19669
       Q-REF19670 LDQ-REF19671 Z-REF19672 LDZ-REF19673 WORK-REF19674
       LWORK-REF19675 RWORK-REF19676 INFO-REF19677))))

(CFFI:DEFCFUN ("zhpcon_" %%ZHPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19679 ':INT32) (ANORM-REF19682 ':DOUBLE)
                              (RCOND-REF19683 ':DOUBLE) (INFO-REF19685 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19679 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19682 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19683 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19685 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19680 AP)
                                            (IPIV-REF19681 IPIV)
                                            (WORK-REF19684 WORK))
      (%%ZHPCON UPLO N-REF19679 AP-REF19680 IPIV-REF19681 ANORM-REF19682
       RCOND-REF19683 WORK-REF19684 INFO-REF19685))))

(CFFI:DEFCFUN ("zhpev_" %%ZHPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPEV (JOBZ UPLO N AP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19688 ':INT32) (LDZ-REF19692 ':INT32)
                              (INFO-REF19695 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19688 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19692 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19695 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19689 AP) (W-REF19690 W)
                                            (Z-REF19691 Z) (WORK-REF19693 WORK)
                                            (RWORK-REF19694 RWORK))
      (%%ZHPEV JOBZ UPLO N-REF19688 AP-REF19689 W-REF19690 Z-REF19691
       LDZ-REF19692 WORK-REF19693 RWORK-REF19694 INFO-REF19695))))

(CFFI:DEFCFUN ("zhpevd_" %%ZHPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPEVD
                   (JOBZ UPLO N AP W Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19698 ':INT32) (LDZ-REF19702 ':INT32)
                              (LWORK-REF19704 ':INT32)
                              (LRWORK-REF19706 ':INT32)
                              (LIWORK-REF19708 ':INT32) (INFO-REF19709 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19698 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19702 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19704 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19706 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19708 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19709 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19699 AP) (W-REF19700 W)
                                            (Z-REF19701 Z) (WORK-REF19703 WORK)
                                            (RWORK-REF19705 RWORK)
                                            (IWORK-REF19707 IWORK))
      (%%ZHPEVD JOBZ UPLO N-REF19698 AP-REF19699 W-REF19700 Z-REF19701
       LDZ-REF19702 WORK-REF19703 LWORK-REF19704 RWORK-REF19705 LRWORK-REF19706
       IWORK-REF19707 LIWORK-REF19708 INFO-REF19709))))

(CFFI:DEFCFUN ("zhpevx_" %%ZHPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPEVX
                   (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK
                    RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19713 ':INT32) (VL-REF19715 ':DOUBLE)
                              (VU-REF19716 ':DOUBLE) (IL-REF19717 ':INT32)
                              (IU-REF19718 ':INT32) (ABSTOL-REF19719 ':DOUBLE)
                              (M-REF19720 ':INT32) (LDZ-REF19723 ':INT32)
                              (INFO-REF19728 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19713 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19715 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19716 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19717 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19718 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19719 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19720 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19723 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19728 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19714 AP) (W-REF19721 W)
                                            (Z-REF19722 Z) (WORK-REF19724 WORK)
                                            (RWORK-REF19725 RWORK)
                                            (IWORK-REF19726 IWORK)
                                            (IFAIL-REF19727 IFAIL))
      (%%ZHPEVX JOBZ RANGE UPLO N-REF19713 AP-REF19714 VL-REF19715 VU-REF19716
       IL-REF19717 IU-REF19718 ABSTOL-REF19719 M-REF19720 W-REF19721 Z-REF19722
       LDZ-REF19723 WORK-REF19724 RWORK-REF19725 IWORK-REF19726 IFAIL-REF19727
       INFO-REF19728))))

(CFFI:DEFCFUN ("zhpgst_" %%ZHPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19729 ':INT32) (N-REF19731 ':INT32)
                              (INFO-REF19734 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19729 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19734 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19732 AP) (BP-REF19733 BP))
      (%%ZHPGST ITYPE-REF19729 UPLO N-REF19731 AP-REF19732 BP-REF19733
       INFO-REF19734))))

(CFFI:DEFCFUN ("zhpgv_" %%ZHPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19735 ':INT32) (N-REF19738 ':INT32)
                              (LDZ-REF19743 ':INT32) (INFO-REF19746 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19735 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19738 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19743 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19746 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19739 AP) (BP-REF19740 BP)
                                            (W-REF19741 W) (Z-REF19742 Z)
                                            (WORK-REF19744 WORK)
                                            (RWORK-REF19745 RWORK))
      (%%ZHPGV ITYPE-REF19735 JOBZ UPLO N-REF19738 AP-REF19739 BP-REF19740
       W-REF19741 Z-REF19742 LDZ-REF19743 WORK-REF19744 RWORK-REF19745
       INFO-REF19746))))

(CFFI:DEFCFUN ("zhpgvd_" %%ZHPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPGVD
                   (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19747 ':INT32) (N-REF19750 ':INT32)
                              (LDZ-REF19755 ':INT32) (LWORK-REF19757 ':INT32)
                              (LRWORK-REF19759 ':INT32)
                              (LIWORK-REF19761 ':INT32) (INFO-REF19762 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19747 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19750 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19755 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19757 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19759 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19761 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19762 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19751 AP) (BP-REF19752 BP)
                                            (W-REF19753 W) (Z-REF19754 Z)
                                            (WORK-REF19756 WORK)
                                            (RWORK-REF19758 RWORK)
                                            (IWORK-REF19760 IWORK))
      (%%ZHPGVD ITYPE-REF19747 JOBZ UPLO N-REF19750 AP-REF19751 BP-REF19752
       W-REF19753 Z-REF19754 LDZ-REF19755 WORK-REF19756 LWORK-REF19757
       RWORK-REF19758 LRWORK-REF19759 IWORK-REF19760 LIWORK-REF19761
       INFO-REF19762))))

(CFFI:DEFCFUN ("zhpgvx_" %%ZHPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPGVX
                   (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ
                    WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19763 ':INT32) (N-REF19767 ':INT32)
                              (VL-REF19770 ':DOUBLE) (VU-REF19771 ':DOUBLE)
                              (IL-REF19772 ':INT32) (IU-REF19773 ':INT32)
                              (ABSTOL-REF19774 ':DOUBLE) (M-REF19775 ':INT32)
                              (LDZ-REF19778 ':INT32) (INFO-REF19783 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19763 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19767 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19770 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19771 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19772 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19773 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19774 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19775 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19778 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19783 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19768 AP) (BP-REF19769 BP)
                                            (W-REF19776 W) (Z-REF19777 Z)
                                            (WORK-REF19779 WORK)
                                            (RWORK-REF19780 RWORK)
                                            (IWORK-REF19781 IWORK)
                                            (IFAIL-REF19782 IFAIL))
      (%%ZHPGVX ITYPE-REF19763 JOBZ RANGE UPLO N-REF19767 AP-REF19768
       BP-REF19769 VL-REF19770 VU-REF19771 IL-REF19772 IU-REF19773
       ABSTOL-REF19774 M-REF19775 W-REF19776 Z-REF19777 LDZ-REF19778
       WORK-REF19779 RWORK-REF19780 IWORK-REF19781 IFAIL-REF19782
       INFO-REF19783))))

(CFFI:DEFCFUN ("zhprfs_" %%ZHPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19785 ':INT32) (NRHS-REF19786 ':INT32)
                              (LDB-REF19791 ':INT32) (LDX-REF19793 ':INT32)
                              (INFO-REF19798 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19785 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19786 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19791 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19793 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19798 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19787 AP) (AFP-REF19788 AFP)
                                            (IPIV-REF19789 IPIV) (B-REF19790 B)
                                            (X-REF19792 X) (FERR-REF19794 FERR)
                                            (BERR-REF19795 BERR)
                                            (WORK-REF19796 WORK)
                                            (RWORK-REF19797 RWORK))
      (%%ZHPRFS UPLO N-REF19785 NRHS-REF19786 AP-REF19787 AFP-REF19788
       IPIV-REF19789 B-REF19790 LDB-REF19791 X-REF19792 LDX-REF19793
       FERR-REF19794 BERR-REF19795 WORK-REF19796 RWORK-REF19797
       INFO-REF19798))))

(CFFI:DEFCFUN ("zhpsv_" %%ZHPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19800 ':INT32) (NRHS-REF19801 ':INT32)
                              (LDB-REF19805 ':INT32) (INFO-REF19806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19800 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19801 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19805 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19806 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19802 AP)
                                            (IPIV-REF19803 IPIV) (B-REF19804 B))
      (%%ZHPSV UPLO N-REF19800 NRHS-REF19801 AP-REF19802 IPIV-REF19803
       B-REF19804 LDB-REF19805 INFO-REF19806))))

(CFFI:DEFCFUN ("zhpsvx_" %%ZHPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19809 ':INT32) (NRHS-REF19810 ':INT32)
                              (LDB-REF19815 ':INT32) (LDX-REF19817 ':INT32)
                              (RCOND-REF19818 ':DOUBLE) (INFO-REF19823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19809 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19810 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19815 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19817 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19818 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19823 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19811 AP) (AFP-REF19812 AFP)
                                            (IPIV-REF19813 IPIV) (B-REF19814 B)
                                            (X-REF19816 X) (FERR-REF19819 FERR)
                                            (BERR-REF19820 BERR)
                                            (WORK-REF19821 WORK)
                                            (RWORK-REF19822 RWORK))
      (%%ZHPSVX FACT UPLO N-REF19809 NRHS-REF19810 AP-REF19811 AFP-REF19812
       IPIV-REF19813 B-REF19814 LDB-REF19815 X-REF19816 LDX-REF19817
       RCOND-REF19818 FERR-REF19819 BERR-REF19820 WORK-REF19821 RWORK-REF19822
       INFO-REF19823))))

(CFFI:DEFCFUN ("zhptrd_" %%ZHPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19825 ':INT32) (INFO-REF19830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19825 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19830 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19826 AP) (D-REF19827 D)
                                            (E-REF19828 E) (TAU-REF19829 TAU))
      (%%ZHPTRD UPLO N-REF19825 AP-REF19826 D-REF19827 E-REF19828 TAU-REF19829
       INFO-REF19830))))

(CFFI:DEFCFUN ("zhptrf_" %%ZHPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19832 ':INT32) (INFO-REF19835 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19832 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19835 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19833 AP)
                                            (IPIV-REF19834 IPIV))
      (%%ZHPTRF UPLO N-REF19832 AP-REF19833 IPIV-REF19834 INFO-REF19835))))

(CFFI:DEFCFUN ("zhptri_" %%ZHPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19837 ':INT32) (INFO-REF19841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19837 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19841 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19838 AP)
                                            (IPIV-REF19839 IPIV)
                                            (WORK-REF19840 WORK))
      (%%ZHPTRI UPLO N-REF19837 AP-REF19838 IPIV-REF19839 WORK-REF19840
       INFO-REF19841))))

(CFFI:DEFCFUN ("zhptrs_" %%ZHPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19843 ':INT32) (NRHS-REF19844 ':INT32)
                              (LDB-REF19848 ':INT32) (INFO-REF19849 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19843 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19844 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19848 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19849 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19845 AP)
                                            (IPIV-REF19846 IPIV) (B-REF19847 B))
      (%%ZHPTRS UPLO N-REF19843 NRHS-REF19844 AP-REF19845 IPIV-REF19846
       B-REF19847 LDB-REF19848 INFO-REF19849))))

(CFFI:DEFCFUN ("zhsein_" %%ZHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (EIGSRC :STRING)
  (INITV :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IFAILL :POINTER)
  (IFAILR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHSEIN
                   (SIDE EIGSRC INITV SELECT N H LDH W VL LDVL VR LDVR MM M
                    WORK RWORK IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHSEIN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19854 ':INT32) (LDH-REF19856 ':INT32)
                              (LDVL-REF19859 ':INT32) (LDVR-REF19861 ':INT32)
                              (MM-REF19862 ':INT32) (M-REF19863 ':INT32)
                              (INFO-REF19868 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19854 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19856 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF19859 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF19861 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF19862 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19863 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19868 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF19853 SELECT)
                                            (H-REF19855 H) (W-REF19857 W)
                                            (VL-REF19858 VL) (VR-REF19860 VR)
                                            (WORK-REF19864 WORK)
                                            (RWORK-REF19865 RWORK)
                                            (IFAILL-REF19866 IFAILL)
                                            (IFAILR-REF19867 IFAILR))
      (%%ZHSEIN SIDE EIGSRC INITV SELECT-REF19853 N-REF19854 H-REF19855
       LDH-REF19856 W-REF19857 VL-REF19858 LDVL-REF19859 VR-REF19860
       LDVR-REF19861 MM-REF19862 M-REF19863 WORK-REF19864 RWORK-REF19865
       IFAILL-REF19866 IFAILR-REF19867 INFO-REF19868))))

(CFFI:DEFCFUN ("zhseqr_" %%ZHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHSEQR (JOB COMPZ N ILO IHI H LDH W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHSEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19871 ':INT32) (ILO-REF19872 ':INT32)
                              (IHI-REF19873 ':INT32) (LDH-REF19875 ':INT32)
                              (LDZ-REF19878 ':INT32) (LWORK-REF19880 ':INT32)
                              (INFO-REF19881 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19871 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19872 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19873 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19875 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19878 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19880 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19881 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19874 H) (W-REF19876 W)
                                            (Z-REF19877 Z) (WORK-REF19879 WORK))
      (%%ZHSEQR JOB COMPZ N-REF19871 ILO-REF19872 IHI-REF19873 H-REF19874
       LDH-REF19875 W-REF19876 Z-REF19877 LDZ-REF19878 WORK-REF19879
       LWORK-REF19880 INFO-REF19881))))

(CFFI:DEFCFUN ("zla_gbamv_" %%ZLA_GBAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBAMV
                   (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19882 ':INT32) (M-REF19883 ':INT32)
                              (N-REF19884 ':INT32) (KL-REF19885 ':INT32)
                              (KU-REF19886 ':INT32) (ALPHA-REF19887 ':DOUBLE)
                              (LDAB-REF19889 ':INT32) (INCX-REF19891 ':INT32)
                              (BETA-REF19892 ':DOUBLE) (INCY-REF19894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19882 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19883 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19884 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19885 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19886 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19887 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19889 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19891 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19892 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19894 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19888 AB) (X-REF19890 X)
                                            (Y-REF19893 Y))
      (%%ZLA_GBAMV TRANS-REF19882 M-REF19883 N-REF19884 KL-REF19885 KU-REF19886
       ALPHA-REF19887 AB-REF19888 LDAB-REF19889 X-REF19890 INCX-REF19891
       BETA-REF19892 Y-REF19893 INCY-REF19894))))

(CFFI:DEFCFUN ("zla_gbrcond_c_" %%ZLA_GBRCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBRCOND_C
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV C CAPPLY INFO WORK
                    RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19896 ':INT32) (KL-REF19897 ':INT32)
                              (KU-REF19898 ':INT32) (LDAB-REF19900 ':INT32)
                              (LDAFB-REF19902 ':INT32)
                              (CAPPLY-REF19905 ':INT32) (INFO-REF19906 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19896 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19897 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19898 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19900 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19902 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19905 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19906 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19899 AB) (AFB-REF19901 AFB)
                                            (IPIV-REF19903 IPIV) (C-REF19904 C)
                                            (WORK-REF19907 WORK)
                                            (RWORK-REF19908 RWORK))
      (%%ZLA_GBRCOND_C TRANS N-REF19896 KL-REF19897 KU-REF19898 AB-REF19899
       LDAB-REF19900 AFB-REF19901 LDAFB-REF19902 IPIV-REF19903 C-REF19904
       CAPPLY-REF19905 INFO-REF19906 WORK-REF19907 RWORK-REF19908))))

(CFFI:DEFCFUN ("zla_gbrcond_x_" %%ZLA_GBRCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBRCOND_X
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19910 ':INT32) (KL-REF19911 ':INT32)
                              (KU-REF19912 ':INT32) (LDAB-REF19914 ':INT32)
                              (LDAFB-REF19916 ':INT32) (INFO-REF19919 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19910 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19911 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19912 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19914 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19916 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19919 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19913 AB) (AFB-REF19915 AFB)
                                            (IPIV-REF19917 IPIV) (X-REF19918 X)
                                            (WORK-REF19920 WORK)
                                            (RWORK-REF19921 RWORK))
      (%%ZLA_GBRCOND_X TRANS N-REF19910 KL-REF19911 KU-REF19912 AB-REF19913
       LDAB-REF19914 AFB-REF19915 LDAFB-REF19916 IPIV-REF19917 X-REF19918
       INFO-REF19919 WORK-REF19920 RWORK-REF19921))))

(CFFI:DEFCFUN ("zla_gbrfsx_extended_" %%ZLA_GBRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBRFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
                    COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
                    ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
                    IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF19922 ':INT32)
                              (TRANS_TYPE-REF19923 ':INT32)
                              (N-REF19924 ':INT32) (KL-REF19925 ':INT32)
                              (KU-REF19926 ':INT32) (NRHS-REF19927 ':INT32)
                              (LDAB-REF19929 ':INT32) (LDAFB-REF19931 ':INT32)
                              (COLEQU-REF19933 ':INT32) (LDB-REF19936 ':INT32)
                              (LDY-REF19938 ':INT32) (N_NORMS-REF19940 ':INT32)
                              (RCOND-REF19947 ':DOUBLE)
                              (ITHRESH-REF19948 ':INT32)
                              (RTHRESH-REF19949 ':DOUBLE)
                              (DZ_UB-REF19950 ':DOUBLE)
                              (IGNORE_CWISE-REF19951 ':INT32)
                              (INFO-REF19952 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF19922 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF19923 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19924 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19925 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19926 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19927 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19929 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19931 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF19933 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19936 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF19938 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF19940 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19947 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF19948 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF19949 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF19950 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF19951 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19952 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19928 AB) (AFB-REF19930 AFB)
                                            (IPIV-REF19932 IPIV) (C-REF19934 C)
                                            (B-REF19935 B) (Y-REF19937 Y)
                                            (BERR_OUT-REF19939 BERR_OUT)
                                            (ERR_BNDS_NORM-REF19941
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF19942
                                             ERR_BNDS_COMP)
                                            (RES-REF19943 RES)
                                            (AYB-REF19944 AYB) (DY-REF19945 DY)
                                            (Y_TAIL-REF19946 Y_TAIL))
      (%%ZLA_GBRFSX_EXTENDED PREC_TYPE-REF19922 TRANS_TYPE-REF19923 N-REF19924
       KL-REF19925 KU-REF19926 NRHS-REF19927 AB-REF19928 LDAB-REF19929
       AFB-REF19930 LDAFB-REF19931 IPIV-REF19932 COLEQU-REF19933 C-REF19934
       B-REF19935 LDB-REF19936 Y-REF19937 LDY-REF19938 BERR_OUT-REF19939
       N_NORMS-REF19940 ERR_BNDS_NORM-REF19941 ERR_BNDS_COMP-REF19942
       RES-REF19943 AYB-REF19944 DY-REF19945 Y_TAIL-REF19946 RCOND-REF19947
       ITHRESH-REF19948 RTHRESH-REF19949 DZ_UB-REF19950 IGNORE_CWISE-REF19951
       INFO-REF19952))))

(CFFI:DEFCFUN ("zla_gbrpvgrw_" %%ZLA_GBRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NCOLS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19953 ':INT32) (KL-REF19954 ':INT32)
                              (KU-REF19955 ':INT32) (NCOLS-REF19956 ':INT32)
                              (LDAB-REF19958 ':INT32) (LDAFB-REF19960 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19953 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19954 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19955 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF19956 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19958 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19960 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19957 AB) (AFB-REF19959 AFB))
      (%%ZLA_GBRPVGRW N-REF19953 KL-REF19954 KU-REF19955 NCOLS-REF19956
       AB-REF19957 LDAB-REF19958 AFB-REF19959 LDAFB-REF19960))))

(CFFI:DEFCFUN ("zla_geamv_" %%ZLA_GEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19961 ':INT32) (M-REF19962 ':INT32)
                              (N-REF19963 ':INT32) (ALPHA-REF19964 ':DOUBLE)
                              (LDA-REF19966 ':INT32) (INCX-REF19968 ':INT32)
                              (BETA-REF19969 ':DOUBLE) (INCY-REF19971 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19961 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19962 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19963 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19964 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19966 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19968 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19969 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19971 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19965 A) (X-REF19967 X)
                                            (Y-REF19970 Y))
      (%%ZLA_GEAMV TRANS-REF19961 M-REF19962 N-REF19963 ALPHA-REF19964
       A-REF19965 LDA-REF19966 X-REF19967 INCX-REF19968 BETA-REF19969
       Y-REF19970 INCY-REF19971))))

(CFFI:DEFCFUN ("zla_gercond_c_" %%ZLA_GERCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_GERCOND_C
                   (TRANS N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19973 ':INT32) (LDA-REF19975 ':INT32)
                              (LDAF-REF19977 ':INT32) (CAPPLY-REF19980 ':INT32)
                              (INFO-REF19981 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19973 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19975 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19977 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19980 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19981 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19974 A) (AF-REF19976 AF)
                                            (IPIV-REF19978 IPIV) (C-REF19979 C)
                                            (WORK-REF19982 WORK)
                                            (RWORK-REF19983 RWORK))
      (%%ZLA_GERCOND_C TRANS N-REF19973 A-REF19974 LDA-REF19975 AF-REF19976
       LDAF-REF19977 IPIV-REF19978 C-REF19979 CAPPLY-REF19980 INFO-REF19981
       WORK-REF19982 RWORK-REF19983))))

(CFFI:DEFCFUN ("zla_gercond_x_" %%ZLA_GERCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_GERCOND_X
                   (TRANS N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19985 ':INT32) (LDA-REF19987 ':INT32)
                              (LDAF-REF19989 ':INT32) (INFO-REF19992 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19985 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19987 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19989 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19992 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19986 A) (AF-REF19988 AF)
                                            (IPIV-REF19990 IPIV) (X-REF19991 X)
                                            (WORK-REF19993 WORK)
                                            (RWORK-REF19994 RWORK))
      (%%ZLA_GERCOND_X TRANS N-REF19985 A-REF19986 LDA-REF19987 AF-REF19988
       LDAF-REF19989 IPIV-REF19990 X-REF19991 INFO-REF19992 WORK-REF19993
       RWORK-REF19994))))

(CFFI:DEFCFUN ("zla_gerfsx_extended_" %%ZLA_GERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERRS_N :POINTER)
  (ERRS_C :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_GERFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
                    LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
                    RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERRS_N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERRS_C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF19995 ':INT32)
                              (TRANS_TYPE-REF19996 ':INT32)
                              (N-REF19997 ':INT32) (NRHS-REF19998 ':INT32)
                              (LDA-REF20000 ':INT32) (LDAF-REF20002 ':INT32)
                              (COLEQU-REF20004 ':INT32) (LDB-REF20007 ':INT32)
                              (LDY-REF20009 ':INT32) (N_NORMS-REF20011 ':INT32)
                              (RCOND-REF20018 ':DOUBLE)
                              (ITHRESH-REF20019 ':INT32)
                              (RTHRESH-REF20020 ':DOUBLE)
                              (DZ_UB-REF20021 ':DOUBLE)
                              (IGNORE_CWISE-REF20022 ':INT32)
                              (INFO-REF20023 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF19995 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF19996 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19997 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19998 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20000 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20002 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20004 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20007 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20009 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20011 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20018 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20019 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20020 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20021 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20022 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20023 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19999 A) (AF-REF20001 AF)
                                            (IPIV-REF20003 IPIV) (C-REF20005 C)
                                            (B-REF20006 B) (Y-REF20008 Y)
                                            (BERR_OUT-REF20010 BERR_OUT)
                                            (ERRS_N-REF20012 ERRS_N)
                                            (ERRS_C-REF20013 ERRS_C)
                                            (RES-REF20014 RES)
                                            (AYB-REF20015 AYB) (DY-REF20016 DY)
                                            (Y_TAIL-REF20017 Y_TAIL))
      (%%ZLA_GERFSX_EXTENDED PREC_TYPE-REF19995 TRANS_TYPE-REF19996 N-REF19997
       NRHS-REF19998 A-REF19999 LDA-REF20000 AF-REF20001 LDAF-REF20002
       IPIV-REF20003 COLEQU-REF20004 C-REF20005 B-REF20006 LDB-REF20007
       Y-REF20008 LDY-REF20009 BERR_OUT-REF20010 N_NORMS-REF20011
       ERRS_N-REF20012 ERRS_C-REF20013 RES-REF20014 AYB-REF20015 DY-REF20016
       Y_TAIL-REF20017 RCOND-REF20018 ITHRESH-REF20019 RTHRESH-REF20020
       DZ_UB-REF20021 IGNORE_CWISE-REF20022 INFO-REF20023))))

(CFFI:DEFCFUN ("zla_gerpvgrw_" %%ZLA_GERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER))

(COMMON-LISP:DEFUN %ZLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20024 ':INT32) (NCOLS-REF20025 ':INT32)
                              (LDA-REF20027 ':INT32) (LDAF-REF20029 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20024 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF20025 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20027 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20029 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20026 A) (AF-REF20028 AF))
      (%%ZLA_GERPVGRW N-REF20024 NCOLS-REF20025 A-REF20026 LDA-REF20027
       AF-REF20028 LDAF-REF20029))))

(CFFI:DEFCFUN ("zla_heamv_" %%ZLA_HEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZLA_HEAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF20030 ':INT32) (N-REF20031 ':INT32)
                              (ALPHA-REF20032 ':DOUBLE) (LDA-REF20034 ':INT32)
                              (INCX-REF20036 ':INT32) (BETA-REF20037 ':DOUBLE)
                              (INCY-REF20039 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF20030 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20032 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20034 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20036 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20037 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20039 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20033 A) (X-REF20035 X)
                                            (Y-REF20038 Y))
      (%%ZLA_HEAMV UPLO-REF20030 N-REF20031 ALPHA-REF20032 A-REF20033
       LDA-REF20034 X-REF20035 INCX-REF20036 BETA-REF20037 Y-REF20038
       INCY-REF20039))))

(CFFI:DEFCFUN ("zla_hercond_c_" %%ZLA_HERCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_HERCOND_C
                   (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20041 ':INT32) (LDA-REF20043 ':INT32)
                              (LDAF-REF20045 ':INT32) (CAPPLY-REF20048 ':INT32)
                              (INFO-REF20049 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20041 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20043 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20045 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20048 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20049 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20042 A) (AF-REF20044 AF)
                                            (IPIV-REF20046 IPIV) (C-REF20047 C)
                                            (WORK-REF20050 WORK)
                                            (RWORK-REF20051 RWORK))
      (%%ZLA_HERCOND_C UPLO N-REF20041 A-REF20042 LDA-REF20043 AF-REF20044
       LDAF-REF20045 IPIV-REF20046 C-REF20047 CAPPLY-REF20048 INFO-REF20049
       WORK-REF20050 RWORK-REF20051))))

(CFFI:DEFCFUN ("zla_hercond_x_" %%ZLA_HERCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_HERCOND_X (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20053 ':INT32) (LDA-REF20055 ':INT32)
                              (LDAF-REF20057 ':INT32) (INFO-REF20060 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20053 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20055 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20057 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20060 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20054 A) (AF-REF20056 AF)
                                            (IPIV-REF20058 IPIV) (X-REF20059 X)
                                            (WORK-REF20061 WORK)
                                            (RWORK-REF20062 RWORK))
      (%%ZLA_HERCOND_X UPLO N-REF20053 A-REF20054 LDA-REF20055 AF-REF20056
       LDAF-REF20057 IPIV-REF20058 X-REF20059 INFO-REF20060 WORK-REF20061
       RWORK-REF20062))))

(CFFI:DEFCFUN ("zla_herfsx_extended_" %%ZLA_HERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_HERFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20063 ':INT32) (N-REF20065 ':INT32)
                              (NRHS-REF20066 ':INT32) (LDA-REF20068 ':INT32)
                              (LDAF-REF20070 ':INT32) (COLEQU-REF20072 ':INT32)
                              (LDB-REF20075 ':INT32) (LDY-REF20077 ':INT32)
                              (N_NORMS-REF20079 ':INT32)
                              (RCOND-REF20086 ':DOUBLE)
                              (ITHRESH-REF20087 ':INT32)
                              (RTHRESH-REF20088 ':DOUBLE)
                              (DZ_UB-REF20089 ':DOUBLE)
                              (IGNORE_CWISE-REF20090 ':INT32)
                              (INFO-REF20091 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20063 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20065 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20066 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20068 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20070 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20072 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20075 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20077 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20079 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20086 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20087 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20088 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20089 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20090 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20091 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20067 A) (AF-REF20069 AF)
                                            (IPIV-REF20071 IPIV) (C-REF20073 C)
                                            (B-REF20074 B) (Y-REF20076 Y)
                                            (BERR_OUT-REF20078 BERR_OUT)
                                            (ERR_BNDS_NORM-REF20080
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20081
                                             ERR_BNDS_COMP)
                                            (RES-REF20082 RES)
                                            (AYB-REF20083 AYB) (DY-REF20084 DY)
                                            (Y_TAIL-REF20085 Y_TAIL))
      (%%ZLA_HERFSX_EXTENDED PREC_TYPE-REF20063 UPLO N-REF20065 NRHS-REF20066
       A-REF20067 LDA-REF20068 AF-REF20069 LDAF-REF20070 IPIV-REF20071
       COLEQU-REF20072 C-REF20073 B-REF20074 LDB-REF20075 Y-REF20076
       LDY-REF20077 BERR_OUT-REF20078 N_NORMS-REF20079 ERR_BNDS_NORM-REF20080
       ERR_BNDS_COMP-REF20081 RES-REF20082 AYB-REF20083 DY-REF20084
       Y_TAIL-REF20085 RCOND-REF20086 ITHRESH-REF20087 RTHRESH-REF20088
       DZ_UB-REF20089 IGNORE_CWISE-REF20090 INFO-REF20091))))

(CFFI:DEFCFUN ("zla_herpvgrw_" %%ZLA_HERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_HERPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20093 ':INT32) (INFO-REF20094 ':INT32)
                              (LDA-REF20096 ':INT32) (LDAF-REF20098 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20093 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20094 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20096 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20098 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20095 A) (AF-REF20097 AF)
                                            (IPIV-REF20099 IPIV)
                                            (WORK-REF20100 WORK))
      (%%ZLA_HERPVGRW UPLO N-REF20093 INFO-REF20094 A-REF20095 LDA-REF20096
       AF-REF20097 LDAF-REF20098 IPIV-REF20099 WORK-REF20100))))

(CFFI:DEFCFUN ("zla_lin_berr_" %%ZLA_LIN_BERR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NZ :POINTER)
  (NRHS :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (BERR :POINTER))

(COMMON-LISP:DEFUN %ZLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_LIN_BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20101 ':INT32) (NZ-REF20102 ':INT32)
                              (NRHS-REF20103 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF20102 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20103 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF20104 RES)
                                            (AYB-REF20105 AYB)
                                            (BERR-REF20106 BERR))
      (%%ZLA_LIN_BERR N-REF20101 NZ-REF20102 NRHS-REF20103 RES-REF20104
       AYB-REF20105 BERR-REF20106))))

(CFFI:DEFCFUN ("zla_porcond_c_" %%ZLA_PORCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_PORCOND_C
                   (UPLO N A LDA AF LDAF C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20108 ':INT32) (LDA-REF20110 ':INT32)
                              (LDAF-REF20112 ':INT32) (CAPPLY-REF20114 ':INT32)
                              (INFO-REF20115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20110 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20112 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20114 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20109 A) (AF-REF20111 AF)
                                            (C-REF20113 C) (WORK-REF20116 WORK)
                                            (RWORK-REF20117 RWORK))
      (%%ZLA_PORCOND_C UPLO N-REF20108 A-REF20109 LDA-REF20110 AF-REF20111
       LDAF-REF20112 C-REF20113 CAPPLY-REF20114 INFO-REF20115 WORK-REF20116
       RWORK-REF20117))))

(CFFI:DEFCFUN ("zla_porcond_x_" %%ZLA_PORCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_PORCOND_X (UPLO N A LDA AF LDAF X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20119 ':INT32) (LDA-REF20121 ':INT32)
                              (LDAF-REF20123 ':INT32) (INFO-REF20125 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20119 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20121 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20123 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20125 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20120 A) (AF-REF20122 AF)
                                            (X-REF20124 X) (WORK-REF20126 WORK)
                                            (RWORK-REF20127 RWORK))
      (%%ZLA_PORCOND_X UPLO N-REF20119 A-REF20120 LDA-REF20121 AF-REF20122
       LDAF-REF20123 X-REF20124 INFO-REF20125 WORK-REF20126 RWORK-REF20127))))

(CFFI:DEFCFUN ("zla_porfsx_extended_" %%ZLA_PORFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_PORFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
                    BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20128 ':INT32) (N-REF20130 ':INT32)
                              (NRHS-REF20131 ':INT32) (LDA-REF20133 ':INT32)
                              (LDAF-REF20135 ':INT32) (COLEQU-REF20136 ':INT32)
                              (LDB-REF20139 ':INT32) (LDY-REF20141 ':INT32)
                              (N_NORMS-REF20143 ':INT32)
                              (RCOND-REF20150 ':DOUBLE)
                              (ITHRESH-REF20151 ':INT32)
                              (RTHRESH-REF20152 ':DOUBLE)
                              (DZ_UB-REF20153 ':DOUBLE)
                              (IGNORE_CWISE-REF20154 ':INT32)
                              (INFO-REF20155 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20128 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20130 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20131 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20133 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20135 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20136 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20139 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20141 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20143 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20150 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20151 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20152 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20153 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20154 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20155 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20132 A) (AF-REF20134 AF)
                                            (C-REF20137 C) (B-REF20138 B)
                                            (Y-REF20140 Y)
                                            (BERR_OUT-REF20142 BERR_OUT)
                                            (ERR_BNDS_NORM-REF20144
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20145
                                             ERR_BNDS_COMP)
                                            (RES-REF20146 RES)
                                            (AYB-REF20147 AYB) (DY-REF20148 DY)
                                            (Y_TAIL-REF20149 Y_TAIL))
      (%%ZLA_PORFSX_EXTENDED PREC_TYPE-REF20128 UPLO N-REF20130 NRHS-REF20131
       A-REF20132 LDA-REF20133 AF-REF20134 LDAF-REF20135 COLEQU-REF20136
       C-REF20137 B-REF20138 LDB-REF20139 Y-REF20140 LDY-REF20141
       BERR_OUT-REF20142 N_NORMS-REF20143 ERR_BNDS_NORM-REF20144
       ERR_BNDS_COMP-REF20145 RES-REF20146 AYB-REF20147 DY-REF20148
       Y_TAIL-REF20149 RCOND-REF20150 ITHRESH-REF20151 RTHRESH-REF20152
       DZ_UB-REF20153 IGNORE_CWISE-REF20154 INFO-REF20155))))

(CFFI:DEFCFUN ("zla_porpvgrw_" %%ZLA_PORPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF20157 ':INT32) (LDA-REF20159 ':INT32)
                              (LDAF-REF20161 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF20157 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20159 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20161 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20158 A) (AF-REF20160 AF)
                                            (WORK-REF20162 WORK))
      (%%ZLA_PORPVGRW UPLO NCOLS-REF20157 A-REF20158 LDA-REF20159 AF-REF20160
       LDAF-REF20161 WORK-REF20162))))

(CFFI:DEFCFUN ("zla_syamv_" %%ZLA_SYAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF20163 ':INT32) (N-REF20164 ':INT32)
                              (ALPHA-REF20165 ':DOUBLE) (LDA-REF20167 ':INT32)
                              (INCX-REF20169 ':INT32) (BETA-REF20170 ':DOUBLE)
                              (INCY-REF20172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF20163 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20164 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20165 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20167 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20169 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20170 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20172 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20166 A) (X-REF20168 X)
                                            (Y-REF20171 Y))
      (%%ZLA_SYAMV UPLO-REF20163 N-REF20164 ALPHA-REF20165 A-REF20166
       LDA-REF20167 X-REF20168 INCX-REF20169 BETA-REF20170 Y-REF20171
       INCY-REF20172))))

(CFFI:DEFCFUN ("zla_syrcond_c_" %%ZLA_SYRCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYRCOND_C
                   (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20174 ':INT32) (LDA-REF20176 ':INT32)
                              (LDAF-REF20178 ':INT32) (CAPPLY-REF20181 ':INT32)
                              (INFO-REF20182 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20174 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20178 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20181 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20182 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20175 A) (AF-REF20177 AF)
                                            (IPIV-REF20179 IPIV) (C-REF20180 C)
                                            (WORK-REF20183 WORK)
                                            (RWORK-REF20184 RWORK))
      (%%ZLA_SYRCOND_C UPLO N-REF20174 A-REF20175 LDA-REF20176 AF-REF20177
       LDAF-REF20178 IPIV-REF20179 C-REF20180 CAPPLY-REF20181 INFO-REF20182
       WORK-REF20183 RWORK-REF20184))))

(CFFI:DEFCFUN ("zla_syrcond_x_" %%ZLA_SYRCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYRCOND_X (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20186 ':INT32) (LDA-REF20188 ':INT32)
                              (LDAF-REF20190 ':INT32) (INFO-REF20193 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20186 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20188 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20190 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20193 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20187 A) (AF-REF20189 AF)
                                            (IPIV-REF20191 IPIV) (X-REF20192 X)
                                            (WORK-REF20194 WORK)
                                            (RWORK-REF20195 RWORK))
      (%%ZLA_SYRCOND_X UPLO N-REF20186 A-REF20187 LDA-REF20188 AF-REF20189
       LDAF-REF20190 IPIV-REF20191 X-REF20192 INFO-REF20193 WORK-REF20194
       RWORK-REF20195))))

(CFFI:DEFCFUN ("zla_syrfsx_extended_" %%ZLA_SYRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYRFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20196 ':INT32) (N-REF20198 ':INT32)
                              (NRHS-REF20199 ':INT32) (LDA-REF20201 ':INT32)
                              (LDAF-REF20203 ':INT32) (COLEQU-REF20205 ':INT32)
                              (LDB-REF20208 ':INT32) (LDY-REF20210 ':INT32)
                              (N_NORMS-REF20212 ':INT32)
                              (RCOND-REF20219 ':DOUBLE)
                              (ITHRESH-REF20220 ':INT32)
                              (RTHRESH-REF20221 ':DOUBLE)
                              (DZ_UB-REF20222 ':DOUBLE)
                              (IGNORE_CWISE-REF20223 ':INT32)
                              (INFO-REF20224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20196 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20198 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20199 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20201 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20203 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20205 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20208 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20210 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20212 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20219 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20220 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20221 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20222 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20223 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20224 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20200 A) (AF-REF20202 AF)
                                            (IPIV-REF20204 IPIV) (C-REF20206 C)
                                            (B-REF20207 B) (Y-REF20209 Y)
                                            (BERR_OUT-REF20211 BERR_OUT)
                                            (ERR_BNDS_NORM-REF20213
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20214
                                             ERR_BNDS_COMP)
                                            (RES-REF20215 RES)
                                            (AYB-REF20216 AYB) (DY-REF20217 DY)
                                            (Y_TAIL-REF20218 Y_TAIL))
      (%%ZLA_SYRFSX_EXTENDED PREC_TYPE-REF20196 UPLO N-REF20198 NRHS-REF20199
       A-REF20200 LDA-REF20201 AF-REF20202 LDAF-REF20203 IPIV-REF20204
       COLEQU-REF20205 C-REF20206 B-REF20207 LDB-REF20208 Y-REF20209
       LDY-REF20210 BERR_OUT-REF20211 N_NORMS-REF20212 ERR_BNDS_NORM-REF20213
       ERR_BNDS_COMP-REF20214 RES-REF20215 AYB-REF20216 DY-REF20217
       Y_TAIL-REF20218 RCOND-REF20219 ITHRESH-REF20220 RTHRESH-REF20221
       DZ_UB-REF20222 IGNORE_CWISE-REF20223 INFO-REF20224))))

(CFFI:DEFCFUN ("zla_syrpvgrw_" %%ZLA_SYRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20226 ':INT32) (INFO-REF20227 ':INT32)
                              (LDA-REF20229 ':INT32) (LDAF-REF20231 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20227 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20229 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20231 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20228 A) (AF-REF20230 AF)
                                            (IPIV-REF20232 IPIV)
                                            (WORK-REF20233 WORK))
      (%%ZLA_SYRPVGRW UPLO N-REF20226 INFO-REF20227 A-REF20228 LDA-REF20229
       AF-REF20230 LDAF-REF20231 IPIV-REF20232 WORK-REF20233))))

(CFFI:DEFCFUN ("zla_wwaddw_" %%ZLA_WWADDW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (W :POINTER))

(COMMON-LISP:DEFUN %ZLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_WWADDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20234 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20234 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20235 X) (Y-REF20236 Y)
                                            (W-REF20237 W))
      (%%ZLA_WWADDW N-REF20234 X-REF20235 Y-REF20236 W-REF20237))))

(CFFI:DEFCFUN ("zlabrd_" %%ZLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %ZLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLABRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20238 ':INT32) (N-REF20239 ':INT32)
                              (NB-REF20240 ':INT32) (LDA-REF20242 ':INT32)
                              (LDX-REF20248 ':INT32) (LDY-REF20250 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20238 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20240 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20242 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20248 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20250 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20241 A) (D-REF20243 D)
                                            (E-REF20244 E) (TAUQ-REF20245 TAUQ)
                                            (TAUP-REF20246 TAUP) (X-REF20247 X)
                                            (Y-REF20249 Y))
      (%%ZLABRD M-REF20238 N-REF20239 NB-REF20240 A-REF20241 LDA-REF20242
       D-REF20243 E-REF20244 TAUQ-REF20245 TAUP-REF20246 X-REF20247
       LDX-REF20248 Y-REF20249 LDY-REF20250))))

(CFFI:DEFCFUN ("zlacgv_" %%ZLACGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZLACGV (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20251 ':INT32) (INCX-REF20253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20251 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20253 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20252 X))
      (%%ZLACGV N-REF20251 X-REF20252 INCX-REF20253))))

(CFFI:DEFCFUN ("zlacn2_" %%ZLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (EST :POINTER)
  (KASE :POINTER)
  (ISAVE :POINTER))

(COMMON-LISP:DEFUN %ZLACN2 (N V X EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20254 ':INT32) (EST-REF20257 ':DOUBLE)
                              (KASE-REF20258 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20254 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20257 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20258 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20255 V) (X-REF20256 X)
                                            (ISAVE-REF20259 ISAVE))
      (%%ZLACN2 N-REF20254 V-REF20255 X-REF20256 EST-REF20257 KASE-REF20258
       ISAVE-REF20259))))

(CFFI:DEFCFUN ("zlacon_" %%ZLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (EST :POINTER)
  (KASE :POINTER))

(COMMON-LISP:DEFUN %ZLACON (N V X EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20260 ':INT32) (EST-REF20263 ':DOUBLE)
                              (KASE-REF20264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20260 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20263 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20264 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20261 V) (X-REF20262 X))
      (%%ZLACON N-REF20260 V-REF20261 X-REF20262 EST-REF20263 KASE-REF20264))))

(CFFI:DEFCFUN ("zlacp2_" %%ZLACP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZLACP2 (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACP2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20266 ':INT32) (N-REF20267 ':INT32)
                              (LDA-REF20269 ':INT32) (LDB-REF20271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20266 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20267 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20269 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20271 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20268 A) (B-REF20270 B))
      (%%ZLACP2 UPLO M-REF20266 N-REF20267 A-REF20268 LDA-REF20269 B-REF20270
       LDB-REF20271))))

(CFFI:DEFCFUN ("zlacpy_" %%ZLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACPY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20273 ':INT32) (N-REF20274 ':INT32)
                              (LDA-REF20276 ':INT32) (LDB-REF20278 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20273 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20274 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20276 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20278 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20275 A) (B-REF20277 B))
      (%%ZLACPY UPLO M-REF20273 N-REF20274 A-REF20275 LDA-REF20276 B-REF20277
       LDB-REF20278))))

(CFFI:DEFCFUN ("zlacrm_" %%ZLACRM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLACRM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACRM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20279 ':INT32) (N-REF20280 ':INT32)
                              (LDA-REF20282 ':INT32) (LDB-REF20284 ':INT32)
                              (LDC-REF20286 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20279 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20280 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20282 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20284 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20286 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20281 A) (B-REF20283 B)
                                            (C-REF20285 C)
                                            (RWORK-REF20287 RWORK))
      (%%ZLACRM M-REF20279 N-REF20280 A-REF20281 LDA-REF20282 B-REF20283
       LDB-REF20284 C-REF20285 LDC-REF20286 RWORK-REF20287))))

(CFFI:DEFCFUN ("zlacrt_" %%ZLACRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %ZLACRT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20288 ':INT32) (INCX-REF20290 ':INT32)
                              (INCY-REF20292 ':INT32)
                              (C-REF20293
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (S-REF20294
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20288 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20290 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20292 :INT32) INCY)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF20293 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF20294 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF20289 CX) (CY-REF20291 CY))
      (%%ZLACRT N-REF20288 CX-REF20289 INCX-REF20290 CY-REF20291 INCY-REF20292
       C-REF20293 S-REF20294))))

(CFFI:DEFCFUN ("zladiv_" %%ZLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT
  (X :POINTER)
  (Y :POINTER))

(COMMON-LISP:DEFUN %ZLADIV (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLADIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF20295
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (Y-REF20296
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              X-REF20295 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART X)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART X)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              Y-REF20296 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Y)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Y)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLADIV X-REF20295 Y-REF20296))))

(CFFI:DEFCFUN ("zlaed0_" %%ZLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (QSIZ :POINTER)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (QSTORE :POINTER)
  (LDQS :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAED0 (QSIZ N D E Q LDQ QSTORE LDQS RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        QSTORE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF20297 ':INT32) (N-REF20298 ':INT32)
                              (LDQ-REF20302 ':INT32) (LDQS-REF20304 ':INT32)
                              (INFO-REF20307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20297 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20298 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20302 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF20304 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20307 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20299 D) (E-REF20300 E)
                                            (Q-REF20301 Q)
                                            (QSTORE-REF20303 QSTORE)
                                            (RWORK-REF20305 RWORK)
                                            (IWORK-REF20306 IWORK))
      (%%ZLAED0 QSIZ-REF20297 N-REF20298 D-REF20299 E-REF20300 Q-REF20301
       LDQ-REF20302 QSTORE-REF20303 LDQS-REF20304 RWORK-REF20305 IWORK-REF20306
       INFO-REF20307))))

(CFFI:DEFCFUN ("zlaed7_" %%ZLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (CUTPNT :POINTER)
  (QSIZ :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (INDXQ :POINTER)
  (QSTORE :POINTER)
  (QPTR :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAED7
                   (N CUTPNT QSIZ TLVLS CURLVL CURPBM D Q LDQ RHO INDXQ QSTORE
                    QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20308 ':INT32) (CUTPNT-REF20309 ':INT32)
                              (QSIZ-REF20310 ':INT32) (TLVLS-REF20311 ':INT32)
                              (CURLVL-REF20312 ':INT32)
                              (CURPBM-REF20313 ':INT32) (LDQ-REF20316 ':INT32)
                              (RHO-REF20317 ':DOUBLE) (INFO-REF20329 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20308 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF20309 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20310 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF20311 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF20312 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF20313 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20316 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20317 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20329 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20314 D) (Q-REF20315 Q)
                                            (INDXQ-REF20318 INDXQ)
                                            (QSTORE-REF20319 QSTORE)
                                            (QPTR-REF20320 QPTR)
                                            (PRMPTR-REF20321 PRMPTR)
                                            (PERM-REF20322 PERM)
                                            (GIVPTR-REF20323 GIVPTR)
                                            (GIVCOL-REF20324 GIVCOL)
                                            (GIVNUM-REF20325 GIVNUM)
                                            (WORK-REF20326 WORK)
                                            (RWORK-REF20327 RWORK)
                                            (IWORK-REF20328 IWORK))
      (%%ZLAED7 N-REF20308 CUTPNT-REF20309 QSIZ-REF20310 TLVLS-REF20311
       CURLVL-REF20312 CURPBM-REF20313 D-REF20314 Q-REF20315 LDQ-REF20316
       RHO-REF20317 INDXQ-REF20318 QSTORE-REF20319 QPTR-REF20320
       PRMPTR-REF20321 PERM-REF20322 GIVPTR-REF20323 GIVCOL-REF20324
       GIVNUM-REF20325 WORK-REF20326 RWORK-REF20327 IWORK-REF20328
       INFO-REF20329))))

(CFFI:DEFCFUN ("zlaed8_" %%ZLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (D :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (W :POINTER)
  (INDXP :POINTER)
  (INDX :POINTER)
  (INDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAED8
                   (K N QSIZ Q LDQ D RHO CUTPNT Z DLAMDA Q2 LDQ2 W INDXP INDX
                    INDXQ PERM GIVPTR GIVCOL GIVNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF20330 ':INT32) (N-REF20331 ':INT32)
                              (QSIZ-REF20332 ':INT32) (LDQ-REF20334 ':INT32)
                              (RHO-REF20336 ':DOUBLE) (CUTPNT-REF20337 ':INT32)
                              (LDQ2-REF20341 ':INT32) (GIVPTR-REF20347 ':INT32)
                              (INFO-REF20350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20330 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20331 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20332 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20334 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20336 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF20337 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF20341 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF20347 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20350 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF20333 Q) (D-REF20335 D)
                                            (Z-REF20338 Z)
                                            (DLAMDA-REF20339 DLAMDA)
                                            (Q2-REF20340 Q2) (W-REF20342 W)
                                            (INDXP-REF20343 INDXP)
                                            (INDX-REF20344 INDX)
                                            (INDXQ-REF20345 INDXQ)
                                            (PERM-REF20346 PERM)
                                            (GIVCOL-REF20348 GIVCOL)
                                            (GIVNUM-REF20349 GIVNUM))
      (%%ZLAED8 K-REF20330 N-REF20331 QSIZ-REF20332 Q-REF20333 LDQ-REF20334
       D-REF20335 RHO-REF20336 CUTPNT-REF20337 Z-REF20338 DLAMDA-REF20339
       Q2-REF20340 LDQ2-REF20341 W-REF20342 INDXP-REF20343 INDX-REF20344
       INDXQ-REF20345 PERM-REF20346 GIVPTR-REF20347 GIVCOL-REF20348
       GIVNUM-REF20349 INFO-REF20350))))

(CFFI:DEFCFUN ("zlaein_" %%ZLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RIGHTV :POINTER)
  (NOINIT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (V :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RWORK :POINTER)
  (EPS3 :POINTER)
  (SMLNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAEIN
                   (RIGHTV NOINIT N H LDH W V B LDB RWORK EPS3 SMLNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMLNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF20351 ':INT32)
                              (NOINIT-REF20352 ':INT32) (N-REF20353 ':INT32)
                              (LDH-REF20355 ':INT32)
                              (W-REF20356
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDB-REF20359 ':INT32) (EPS3-REF20361 ':DOUBLE)
                              (SMLNUM-REF20362 ':DOUBLE)
                              (INFO-REF20363 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF20351 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF20352 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20353 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20355 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              W-REF20356 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART W)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART W)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20359 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF20361 :DOUBLE) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF20362 :DOUBLE) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20363 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20354 H) (V-REF20357 V)
                                            (B-REF20358 B)
                                            (RWORK-REF20360 RWORK))
      (%%ZLAEIN RIGHTV-REF20351 NOINIT-REF20352 N-REF20353 H-REF20354
       LDH-REF20355 W-REF20356 V-REF20357 B-REF20358 LDB-REF20359
       RWORK-REF20360 EPS3-REF20361 SMLNUM-REF20362 INFO-REF20363))))

(CFFI:DEFCFUN ("zlaesy_" %%ZLAESY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (EVSCAL :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %ZLAESY (A B C RT1 RT2 EVSCAL CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAESY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) RT1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) RT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) EVSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) CS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20364
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B-REF20365
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF20366
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT1-REF20367
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT2-REF20368
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (EVSCAL-REF20369
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CS1-REF20370
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (SN1-REF20371
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A-REF20364 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B-REF20365 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF20366 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              RT1-REF20367
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              RT2-REF20368
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT2)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              EVSCAL-REF20369
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART EVSCAL)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART EVSCAL)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CS1-REF20370
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CS1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CS1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF20371
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAESY A-REF20364 B-REF20365 C-REF20366 RT1-REF20367 RT2-REF20368
       EVSCAL-REF20369 CS1-REF20370 SN1-REF20371))))

(CFFI:DEFCFUN ("zlaev2_" %%ZLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %ZLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAEV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20372
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B-REF20373
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF20374
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT1-REF20375 ':DOUBLE) (RT2-REF20376 ':DOUBLE)
                              (CS1-REF20377 ':DOUBLE)
                              (SN1-REF20378
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A-REF20372 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B-REF20373 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF20374 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF20375 :DOUBLE) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF20376 :DOUBLE) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF20377 :DOUBLE) CS1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF20378
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAEV2 A-REF20372 B-REF20373 C-REF20374 RT1-REF20375 RT2-REF20376
       CS1-REF20377 SN1-REF20378))))

(CFFI:DEFCFUN ("zlag2c_" %%ZLAG2C :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAG2C (M N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAG2C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20379 ':INT32) (N-REF20380 ':INT32)
                              (LDA-REF20382 ':INT32) (LDSA-REF20384 ':INT32)
                              (INFO-REF20385 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20379 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20380 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20382 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF20384 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20385 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20381 A) (SA-REF20383 SA))
      (%%ZLAG2C M-REF20379 N-REF20380 A-REF20381 LDA-REF20382 SA-REF20383
       LDSA-REF20384 INFO-REF20385))))

(CFFI:DEFCFUN ("zlags2_" %%ZLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPPER :POINTER)
  (A1 :POINTER)
  (A2 :POINTER)
  (A3 :POINTER)
  (B1 :POINTER)
  (B2 :POINTER)
  (B3 :POINTER)
  (CSU :POINTER)
  (SNU :POINTER)
  (CSV :POINTER)
  (SNV :POINTER)
  (CSQ :POINTER)
  (SNQ :POINTER))

(COMMON-LISP:DEFUN %ZLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SNU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SNV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF20386 ':INT32) (A1-REF20387 ':DOUBLE)
                              (A2-REF20388
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (A3-REF20389 ':DOUBLE) (B1-REF20390 ':DOUBLE)
                              (B2-REF20391
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B3-REF20392 ':DOUBLE) (CSU-REF20393 ':DOUBLE)
                              (SNU-REF20394
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CSV-REF20395 ':DOUBLE)
                              (SNV-REF20396
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CSQ-REF20397 ':DOUBLE)
                              (SNQ-REF20398
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF20386 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF20387 :DOUBLE) A1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A2-REF20388
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF20389 :DOUBLE) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF20390 :DOUBLE) B1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B2-REF20391
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF20392 :DOUBLE) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF20393 :DOUBLE) CSU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNU-REF20394
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF20395 :DOUBLE) CSV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNV-REF20396
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNV)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNV)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF20397 :DOUBLE) CSQ)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNQ-REF20398
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNQ)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNQ)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAGS2 UPPER-REF20386 A1-REF20387 A2-REF20388 A3-REF20389 B1-REF20390
       B2-REF20391 B3-REF20392 CSU-REF20393 SNU-REF20394 CSV-REF20395
       SNV-REF20396 CSQ-REF20397 SNQ-REF20398))))

(CFFI:DEFCFUN ("zlagtm_" %%ZLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (ALPHA :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (BETA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAGTM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20400 ':INT32) (NRHS-REF20401 ':INT32)
                              (ALPHA-REF20402 ':DOUBLE) (LDX-REF20407 ':INT32)
                              (BETA-REF20408 ':DOUBLE) (LDB-REF20410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20400 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20401 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20402 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20407 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20408 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20410 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20403 DL) (D-REF20404 D)
                                            (DU-REF20405 DU) (X-REF20406 X)
                                            (B-REF20409 B))
      (%%ZLAGTM TRANS N-REF20400 NRHS-REF20401 ALPHA-REF20402 DL-REF20403
       D-REF20404 DU-REF20405 X-REF20406 LDX-REF20407 BETA-REF20408 B-REF20409
       LDB-REF20410))))

(CFFI:DEFCFUN ("zlahef_" %%ZLAHEF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAHEF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20412 ':INT32) (NB-REF20413 ':INT32)
                              (KB-REF20414 ':INT32) (LDA-REF20416 ':INT32)
                              (LDW-REF20419 ':INT32) (INFO-REF20420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20413 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20414 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20416 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20419 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20420 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20415 A) (IPIV-REF20417 IPIV)
                                            (W-REF20418 W))
      (%%ZLAHEF UPLO N-REF20412 NB-REF20413 KB-REF20414 A-REF20415 LDA-REF20416
       IPIV-REF20417 W-REF20418 LDW-REF20419 INFO-REF20420))))

(CFFI:DEFCFUN ("zlahef_aa_" %%ZLAHEF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLAHEF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF20422 ':INT32) (M-REF20423 ':INT32)
                              (NB-REF20424 ':INT32) (LDA-REF20426 ':INT32)
                              (LDH-REF20429 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF20422 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20423 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20424 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20426 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20429 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20425 A) (IPIV-REF20427 IPIV)
                                            (H-REF20428 H) (WORK-REF20430 WORK))
      (%%ZLAHEF_AA UPLO J1-REF20422 M-REF20423 NB-REF20424 A-REF20425
       LDA-REF20426 IPIV-REF20427 H-REF20428 LDH-REF20429 WORK-REF20430))))

(CFFI:DEFCFUN ("zlahef_rk_" %%ZLAHEF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAHEF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20432 ':INT32) (NB-REF20433 ':INT32)
                              (KB-REF20434 ':INT32) (LDA-REF20436 ':INT32)
                              (LDW-REF20440 ':INT32) (INFO-REF20441 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20432 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20433 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20434 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20436 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20440 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20441 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20435 A) (E-REF20437 E)
                                            (IPIV-REF20438 IPIV) (W-REF20439 W))
      (%%ZLAHEF_RK UPLO N-REF20432 NB-REF20433 KB-REF20434 A-REF20435
       LDA-REF20436 E-REF20437 IPIV-REF20438 W-REF20439 LDW-REF20440
       INFO-REF20441))))

(CFFI:DEFCFUN ("zlahef_rook_" %%ZLAHEF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAHEF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20443 ':INT32) (NB-REF20444 ':INT32)
                              (KB-REF20445 ':INT32) (LDA-REF20447 ':INT32)
                              (LDW-REF20450 ':INT32) (INFO-REF20451 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20443 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20444 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20445 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20447 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20450 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20451 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20446 A) (IPIV-REF20448 IPIV)
                                            (W-REF20449 W))
      (%%ZLAHEF_ROOK UPLO N-REF20443 NB-REF20444 KB-REF20445 A-REF20446
       LDA-REF20447 IPIV-REF20448 W-REF20449 LDW-REF20450 INFO-REF20451))))

(CFFI:DEFCFUN ("zlahqr_" %%ZLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAHQR (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20452 ':INT32) (WANTZ-REF20453 ':INT32)
                              (N-REF20454 ':INT32) (ILO-REF20455 ':INT32)
                              (IHI-REF20456 ':INT32) (LDH-REF20458 ':INT32)
                              (ILOZ-REF20460 ':INT32) (IHIZ-REF20461 ':INT32)
                              (LDZ-REF20463 ':INT32) (INFO-REF20464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20452 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20453 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20455 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20456 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20458 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20460 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20461 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20463 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20457 H) (W-REF20459 W)
                                            (Z-REF20462 Z))
      (%%ZLAHQR WANTT-REF20452 WANTZ-REF20453 N-REF20454 ILO-REF20455
       IHI-REF20456 H-REF20457 LDH-REF20458 W-REF20459 ILOZ-REF20460
       IHIZ-REF20461 Z-REF20462 LDZ-REF20463 INFO-REF20464))))

(CFFI:DEFCFUN ("zlahr2_" %%ZLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %ZLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20465 ':INT32) (K-REF20466 ':INT32)
                              (NB-REF20467 ':INT32) (LDA-REF20469 ':INT32)
                              (LDT-REF20472 ':INT32) (LDY-REF20474 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20465 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20466 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20467 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20469 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20472 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20474 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20468 A) (TAU-REF20470 TAU)
                                            (T-REF20471 T) (Y-REF20473 Y))
      (%%ZLAHR2 N-REF20465 K-REF20466 NB-REF20467 A-REF20468 LDA-REF20469
       TAU-REF20470 T-REF20471 LDT-REF20472 Y-REF20473 LDY-REF20474))))

(CFFI:DEFCFUN ("zlaic1_" %%ZLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (J :POINTER)
  (X :POINTER)
  (SEST :POINTER)
  (W :POINTER)
  (GAMMA :POINTER)
  (SESTPR :POINTER)
  (S :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %ZLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAIC1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) GAMMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SESTPR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF20475 ':INT32) (J-REF20476 ':INT32)
                              (SEST-REF20478 ':DOUBLE)
                              (GAMMA-REF20480
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (SESTPR-REF20481 ':DOUBLE)
                              (S-REF20482
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF20483
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF20475 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF20476 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF20478 :DOUBLE) SEST)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              GAMMA-REF20480
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART GAMMA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART GAMMA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF20481 :DOUBLE) SESTPR)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF20482 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF20483 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20477 X) (W-REF20479 W))
      (%%ZLAIC1 JOB-REF20475 J-REF20476 X-REF20477 SEST-REF20478 W-REF20479
       GAMMA-REF20480 SESTPR-REF20481 S-REF20482 C-REF20483))))

(CFFI:DEFCFUN ("zlals0_" %%ZLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLALS0
                   (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
                    LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALS0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF20484 ':INT32) (NL-REF20485 ':INT32)
                              (NR-REF20486 ':INT32) (SQRE-REF20487 ':INT32)
                              (NRHS-REF20488 ':INT32) (LDB-REF20490 ':INT32)
                              (LDBX-REF20492 ':INT32) (GIVPTR-REF20494 ':INT32)
                              (LDGCOL-REF20496 ':INT32)
                              (LDGNUM-REF20498 ':INT32) (K-REF20503 ':INT32)
                              (C-REF20504 ':DOUBLE) (S-REF20505 ':DOUBLE)
                              (INFO-REF20507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF20484 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF20485 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF20486 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF20487 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20488 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20490 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF20492 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF20494 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF20496 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF20498 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20503 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF20504 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF20505 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF20489 B) (BX-REF20491 BX)
                                            (PERM-REF20493 PERM)
                                            (GIVCOL-REF20495 GIVCOL)
                                            (GIVNUM-REF20497 GIVNUM)
                                            (POLES-REF20499 POLES)
                                            (DIFL-REF20500 DIFL)
                                            (DIFR-REF20501 DIFR) (Z-REF20502 Z)
                                            (RWORK-REF20506 RWORK))
      (%%ZLALS0 ICOMPQ-REF20484 NL-REF20485 NR-REF20486 SQRE-REF20487
       NRHS-REF20488 B-REF20489 LDB-REF20490 BX-REF20491 LDBX-REF20492
       PERM-REF20493 GIVPTR-REF20494 GIVCOL-REF20495 LDGCOL-REF20496
       GIVNUM-REF20497 LDGNUM-REF20498 POLES-REF20499 DIFL-REF20500
       DIFR-REF20501 Z-REF20502 K-REF20503 C-REF20504 S-REF20505 RWORK-REF20506
       INFO-REF20507))))

(CFFI:DEFCFUN ("zlalsa_" %%ZLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLALSA
                   (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
                    POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF20508 ':INT32)
                              (SMLSIZ-REF20509 ':INT32) (N-REF20510 ':INT32)
                              (NRHS-REF20511 ':INT32) (LDB-REF20513 ':INT32)
                              (LDBX-REF20515 ':INT32) (LDU-REF20517 ':INT32)
                              (LDGCOL-REF20526 ':INT32) (INFO-REF20533 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF20508 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF20509 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20511 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20513 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF20515 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20517 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF20526 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20533 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF20512 B) (BX-REF20514 BX)
                                            (U-REF20516 U) (VT-REF20518 VT)
                                            (K-REF20519 K) (DIFL-REF20520 DIFL)
                                            (DIFR-REF20521 DIFR) (Z-REF20522 Z)
                                            (POLES-REF20523 POLES)
                                            (GIVPTR-REF20524 GIVPTR)
                                            (GIVCOL-REF20525 GIVCOL)
                                            (PERM-REF20527 PERM)
                                            (GIVNUM-REF20528 GIVNUM)
                                            (C-REF20529 C) (S-REF20530 S)
                                            (RWORK-REF20531 RWORK)
                                            (IWORK-REF20532 IWORK))
      (%%ZLALSA ICOMPQ-REF20508 SMLSIZ-REF20509 N-REF20510 NRHS-REF20511
       B-REF20512 LDB-REF20513 BX-REF20514 LDBX-REF20515 U-REF20516
       LDU-REF20517 VT-REF20518 K-REF20519 DIFL-REF20520 DIFR-REF20521
       Z-REF20522 POLES-REF20523 GIVPTR-REF20524 GIVCOL-REF20525
       LDGCOL-REF20526 PERM-REF20527 GIVNUM-REF20528 C-REF20529 S-REF20530
       RWORK-REF20531 IWORK-REF20532 INFO-REF20533))))

(CFFI:DEFCFUN ("zlalsd_" %%ZLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLALSD
                   (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF20535 ':INT32) (N-REF20536 ':INT32)
                              (NRHS-REF20537 ':INT32) (LDB-REF20541 ':INT32)
                              (RCOND-REF20542 ':DOUBLE) (RANK-REF20543 ':INT32)
                              (INFO-REF20547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF20535 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20536 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20537 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20541 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20542 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF20543 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20538 D) (E-REF20539 E)
                                            (B-REF20540 B) (WORK-REF20544 WORK)
                                            (RWORK-REF20545 RWORK)
                                            (IWORK-REF20546 IWORK))
      (%%ZLALSD UPLO SMLSIZ-REF20535 N-REF20536 NRHS-REF20537 D-REF20538
       E-REF20539 B-REF20540 LDB-REF20541 RCOND-REF20542 RANK-REF20543
       WORK-REF20544 RWORK-REF20545 IWORK-REF20546 INFO-REF20547))))

(CFFI:DEFCFUN ("zlamswlq_" %%ZLAMSWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAMSWLQ
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAMSWLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20550 ':INT32) (N-REF20551 ':INT32)
                              (K-REF20552 ':INT32) (MB-REF20553 ':INT32)
                              (NB-REF20554 ':INT32) (LDA-REF20556 ':INT32)
                              (LDT-REF20558 ':INT32) (LDC-REF20560 ':INT32)
                              (LWORK-REF20562 ':INT32) (INFO-REF20563 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20550 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20551 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20552 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20553 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20554 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20556 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20558 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20560 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20562 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20563 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20555 A) (T-REF20557 T)
                                            (C-REF20559 C) (WORK-REF20561 WORK))
      (%%ZLAMSWLQ SIDE TRANS M-REF20550 N-REF20551 K-REF20552 MB-REF20553
       NB-REF20554 A-REF20555 LDA-REF20556 T-REF20557 LDT-REF20558 C-REF20559
       LDC-REF20560 WORK-REF20561 LWORK-REF20562 INFO-REF20563))))

(CFFI:DEFCFUN ("zlamtsqr_" %%ZLAMTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAMTSQR
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAMTSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20566 ':INT32) (N-REF20567 ':INT32)
                              (K-REF20568 ':INT32) (MB-REF20569 ':INT32)
                              (NB-REF20570 ':INT32) (LDA-REF20572 ':INT32)
                              (LDT-REF20574 ':INT32) (LDC-REF20576 ':INT32)
                              (LWORK-REF20578 ':INT32) (INFO-REF20579 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20566 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20567 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20568 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20569 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20570 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20572 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20574 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20576 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20578 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20579 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20571 A) (T-REF20573 T)
                                            (C-REF20575 C) (WORK-REF20577 WORK))
      (%%ZLAMTSQR SIDE TRANS M-REF20566 N-REF20567 K-REF20568 MB-REF20569
       NB-REF20570 A-REF20571 LDA-REF20572 T-REF20573 LDT-REF20574 C-REF20575
       LDC-REF20576 WORK-REF20577 LWORK-REF20578 INFO-REF20579))))

(CFFI:DEFCFUN ("zlangb_" %%ZLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20581 ':INT32) (KL-REF20582 ':INT32)
                              (KU-REF20583 ':INT32) (LDAB-REF20585 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20581 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20582 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20583 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20585 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20584 AB)
                                            (WORK-REF20586 WORK))
      (%%ZLANGB NORM N-REF20581 KL-REF20582 KU-REF20583 AB-REF20584
       LDAB-REF20585 WORK-REF20586))))

(CFFI:DEFCFUN ("zlange_" %%ZLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20588 ':INT32) (N-REF20589 ':INT32)
                              (LDA-REF20591 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20588 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20591 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20590 A) (WORK-REF20592 WORK))
      (%%ZLANGE NORM M-REF20588 N-REF20589 A-REF20590 LDA-REF20591
       WORK-REF20592))))

(CFFI:DEFCFUN ("zlangt_" %%ZLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER))

(COMMON-LISP:DEFUN %ZLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20594 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20595 DL) (D-REF20596 D)
                                            (DU-REF20597 DU))
      (%%ZLANGT NORM N-REF20594 DL-REF20595 D-REF20596 DU-REF20597))))

(CFFI:DEFCFUN ("zlanhb_" %%ZLANHB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20600 ':INT32) (K-REF20601 ':INT32)
                              (LDAB-REF20603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20600 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20601 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20603 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20602 AB)
                                            (WORK-REF20604 WORK))
      (%%ZLANHB NORM UPLO N-REF20600 K-REF20601 AB-REF20602 LDAB-REF20603
       WORK-REF20604))))

(CFFI:DEFCFUN ("zlanhe_" %%ZLANHE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHE (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20607 ':INT32) (LDA-REF20609 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20607 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20609 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20608 A) (WORK-REF20610 WORK))
      (%%ZLANHE NORM UPLO N-REF20607 A-REF20608 LDA-REF20609 WORK-REF20610))))

(CFFI:DEFCFUN ("zlanhf_" %%ZLANHF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20614 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20614 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20615 A) (WORK-REF20616 WORK))
      (%%ZLANHF NORM TRANSR UPLO N-REF20614 A-REF20615 WORK-REF20616))))

(CFFI:DEFCFUN ("zlanhp_" %%ZLANHP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20619 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20620 AP)
                                            (WORK-REF20621 WORK))
      (%%ZLANHP NORM UPLO N-REF20619 AP-REF20620 WORK-REF20621))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZBBCSD
  %ZBBCSD %%ZBDSQR %ZBDSQR %%ZCGESV %ZCGESV %%ZCPOSV %ZCPOSV %%ZDRSCL %ZDRSCL
  %%ZGBBRD %ZGBBRD %%ZGBCON %ZGBCON %%ZGBEQU %ZGBEQU %%ZGBEQUB %ZGBEQUB
  %%ZGBRFS %ZGBRFS %%ZGBRFSX %ZGBRFSX %%ZGBSV %ZGBSV %%ZGBSVX %ZGBSVX %%ZGBSVXX
  %ZGBSVXX %%ZGBTF2 %ZGBTF2 %%ZGBTRF %ZGBTRF %%ZGBTRS %ZGBTRS %%ZGEBAK %ZGEBAK
  %%ZGEBAL %ZGEBAL %%ZGEBD2 %ZGEBD2 %%ZGEBRD %ZGEBRD %%ZGECON %ZGECON %%ZGEEQU
  %ZGEEQU %%ZGEEQUB %ZGEEQUB %%ZGEES %ZGEES %%ZGEESX %ZGEESX %%ZGEEV %ZGEEV
  %%ZGEEVX %ZGEEVX %%ZGEHD2 %ZGEHD2 %%ZGEHRD %ZGEHRD %%ZGEJSV %ZGEJSV %%ZGELQ
  %ZGELQ %%ZGELQ2 %ZGELQ2 %%ZGELQF %ZGELQF %%ZGELQT %ZGELQT %%ZGELQT3 %ZGELQT3
  %%ZGELS %ZGELS %%ZGELSD %ZGELSD %%ZGELSS %ZGELSS %%ZGELSY %ZGELSY %%ZGEMLQ
  %ZGEMLQ %%ZGEMLQT %ZGEMLQT %%ZGEMQR %ZGEMQR %%ZGEMQRT %ZGEMQRT %%ZGEQL2
  %ZGEQL2 %%ZGEQLF %ZGEQLF %%ZGEQP3 %ZGEQP3 %%ZGEQR %ZGEQR %%ZGEQR2 %ZGEQR2
  %%ZGEQR2P %ZGEQR2P %%ZGEQRF %ZGEQRF %%ZGEQRFP %ZGEQRFP %%ZGEQRT %ZGEQRT
  %%ZGEQRT2 %ZGEQRT2 %%ZGEQRT3 %ZGEQRT3 %%ZGERFS %ZGERFS %%ZGERFSX %ZGERFSX
  %%ZGERQ2 %ZGERQ2 %%ZGERQF %ZGERQF %%ZGESC2 %ZGESC2 %%ZGESDD %ZGESDD %%ZGESV
  %ZGESV %%ZGESVD %ZGESVD %%ZGESVDQ %ZGESVDQ %%ZGESVDX %ZGESVDX %%ZGESVJ
  %ZGESVJ %%ZGESVX %ZGESVX %%ZGESVXX %ZGESVXX %%ZGETC2 %ZGETC2 %%ZGETF2 %ZGETF2
  %%ZGETRF %ZGETRF %%ZGETRF2 %ZGETRF2 %%ZGETRI %ZGETRI %%ZGETRS %ZGETRS
  %%ZGETSLS %ZGETSLS %%ZGGBAK %ZGGBAK %%ZGGBAL %ZGGBAL %%ZGGES %ZGGES %%ZGGES3
  %ZGGES3 %%ZGGESX %ZGGESX %%ZGGEV %ZGGEV %%ZGGEV3 %ZGGEV3 %%ZGGEVX %ZGGEVX
  %%ZGGGLM %ZGGGLM %%ZGGHD3 %ZGGHD3 %%ZGGHRD %ZGGHRD %%ZGGLSE %ZGGLSE %%ZGGQRF
  %ZGGQRF %%ZGGRQF %ZGGRQF %%ZGGSVD3 %ZGGSVD3 %%ZGGSVP3 %ZGGSVP3 %%ZGSVJ0
  %ZGSVJ0 %%ZGSVJ1 %ZGSVJ1 %%ZGTCON %ZGTCON %%ZGTRFS %ZGTRFS %%ZGTSV %ZGTSV
  %%ZGTSVX %ZGTSVX %%ZGTTRF %ZGTTRF %%ZGTTRS %ZGTTRS %%ZGTTS2 %ZGTTS2
  %%ZHB2ST_KERNELS %ZHB2ST_KERNELS %%ZHBEV %ZHBEV %%ZHBEV_2STAGE %ZHBEV_2STAGE
  %%ZHBEVD %ZHBEVD %%ZHBEVD_2STAGE %ZHBEVD_2STAGE %%ZHBEVX %ZHBEVX
  %%ZHBEVX_2STAGE %ZHBEVX_2STAGE %%ZHBGST %ZHBGST %%ZHBGV %ZHBGV %%ZHBGVD
  %ZHBGVD %%ZHBGVX %ZHBGVX %%ZHBTRD %ZHBTRD %%ZHECON %ZHECON %%ZHECON_3
  %ZHECON_3 %%ZHECON_ROOK %ZHECON_ROOK %%ZHEEQUB %ZHEEQUB %%ZHEEV %ZHEEV
  %%ZHEEV_2STAGE %ZHEEV_2STAGE %%ZHEEVD %ZHEEVD %%ZHEEVD_2STAGE %ZHEEVD_2STAGE
  %%ZHEEVR %ZHEEVR %%ZHEEVR_2STAGE %ZHEEVR_2STAGE %%ZHEEVX %ZHEEVX
  %%ZHEEVX_2STAGE %ZHEEVX_2STAGE %%ZHEGS2 %ZHEGS2 %%ZHEGST %ZHEGST %%ZHEGV
  %ZHEGV %%ZHEGV_2STAGE %ZHEGV_2STAGE %%ZHEGVD %ZHEGVD %%ZHEGVX %ZHEGVX
  %%ZHERFS %ZHERFS %%ZHERFSX %ZHERFSX %%ZHESV %ZHESV %%ZHESV_AA %ZHESV_AA
  %%ZHESV_AA_2STAGE %ZHESV_AA_2STAGE %%ZHESV_RK %ZHESV_RK %%ZHESV_ROOK
  %ZHESV_ROOK %%ZHESVX %ZHESVX %%ZHESVXX %ZHESVXX %%ZHESWAPR %ZHESWAPR %%ZHETD2
  %ZHETD2 %%ZHETF2 %ZHETF2 %%ZHETF2_RK %ZHETF2_RK %%ZHETF2_ROOK %ZHETF2_ROOK
  %%ZHETRD %ZHETRD %%ZHETRD_2STAGE %ZHETRD_2STAGE %%ZHETRD_HE2HB %ZHETRD_HE2HB
  %%ZHETRF %ZHETRF %%ZHETRF_AA %ZHETRF_AA %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE
  %%ZHETRF_RK %ZHETRF_RK %%ZHETRF_ROOK %ZHETRF_ROOK %%ZHETRI %ZHETRI %%ZHETRI2
  %ZHETRI2 %%ZHETRI2X %ZHETRI2X %%ZHETRI_3 %ZHETRI_3 %%ZHETRI_3X %ZHETRI_3X
  %%ZHETRI_ROOK %ZHETRI_ROOK %%ZHETRS %ZHETRS %%ZHETRS2 %ZHETRS2 %%ZHETRS_3
  %ZHETRS_3 %%ZHETRS_AA %ZHETRS_AA %%ZHETRS_AA_2STAGE %ZHETRS_AA_2STAGE
  %%ZHETRS_ROOK %ZHETRS_ROOK %%ZHFRK %ZHFRK %%ZHGEQZ %ZHGEQZ %%ZHPCON %ZHPCON
  %%ZHPEV %ZHPEV %%ZHPEVD %ZHPEVD %%ZHPEVX %ZHPEVX %%ZHPGST %ZHPGST %%ZHPGV
  %ZHPGV %%ZHPGVD %ZHPGVD %%ZHPGVX %ZHPGVX %%ZHPRFS %ZHPRFS %%ZHPSV %ZHPSV
  %%ZHPSVX %ZHPSVX %%ZHPTRD %ZHPTRD %%ZHPTRF %ZHPTRF %%ZHPTRI %ZHPTRI %%ZHPTRS
  %ZHPTRS %%ZHSEIN %ZHSEIN %%ZHSEQR %ZHSEQR %%ZLA_GBAMV %ZLA_GBAMV
  %%ZLA_GBRCOND_C %ZLA_GBRCOND_C %%ZLA_GBRCOND_X %ZLA_GBRCOND_X
  %%ZLA_GBRFSX_EXTENDED %ZLA_GBRFSX_EXTENDED %%ZLA_GBRPVGRW %ZLA_GBRPVGRW
  %%ZLA_GEAMV %ZLA_GEAMV %%ZLA_GERCOND_C %ZLA_GERCOND_C %%ZLA_GERCOND_X
  %ZLA_GERCOND_X %%ZLA_GERFSX_EXTENDED %ZLA_GERFSX_EXTENDED %%ZLA_GERPVGRW
  %ZLA_GERPVGRW %%ZLA_HEAMV %ZLA_HEAMV %%ZLA_HERCOND_C %ZLA_HERCOND_C
  %%ZLA_HERCOND_X %ZLA_HERCOND_X %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED
  %%ZLA_HERPVGRW %ZLA_HERPVGRW %%ZLA_LIN_BERR %ZLA_LIN_BERR %%ZLA_PORCOND_C
  %ZLA_PORCOND_C %%ZLA_PORCOND_X %ZLA_PORCOND_X %%ZLA_PORFSX_EXTENDED
  %ZLA_PORFSX_EXTENDED %%ZLA_PORPVGRW %ZLA_PORPVGRW %%ZLA_SYAMV %ZLA_SYAMV
  %%ZLA_SYRCOND_C %ZLA_SYRCOND_C %%ZLA_SYRCOND_X %ZLA_SYRCOND_X
  %%ZLA_SYRFSX_EXTENDED %ZLA_SYRFSX_EXTENDED %%ZLA_SYRPVGRW %ZLA_SYRPVGRW
  %%ZLA_WWADDW %ZLA_WWADDW %%ZLABRD %ZLABRD %%ZLACGV %ZLACGV %%ZLACN2 %ZLACN2
  %%ZLACON %ZLACON %%ZLACP2 %ZLACP2 %%ZLACPY %ZLACPY %%ZLACRM %ZLACRM %%ZLACRT
  %ZLACRT %%ZLADIV %ZLADIV %%ZLAED0 %ZLAED0 %%ZLAED7 %ZLAED7 %%ZLAED8 %ZLAED8
  %%ZLAEIN %ZLAEIN %%ZLAESY %ZLAESY %%ZLAEV2 %ZLAEV2 %%ZLAG2C %ZLAG2C %%ZLAGS2
  %ZLAGS2 %%ZLAGTM %ZLAGTM %%ZLAHEF %ZLAHEF %%ZLAHEF_AA %ZLAHEF_AA %%ZLAHEF_RK
  %ZLAHEF_RK %%ZLAHEF_ROOK %ZLAHEF_ROOK %%ZLAHQR %ZLAHQR %%ZLAHR2 %ZLAHR2
  %%ZLAIC1 %ZLAIC1 %%ZLALS0 %ZLALS0 %%ZLALSA %ZLALSA %%ZLALSD %ZLALSD
  %%ZLAMSWLQ %ZLAMSWLQ %%ZLAMTSQR %ZLAMTSQR %%ZLANGB %ZLANGB %%ZLANGE %ZLANGE
  %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE %%ZLANHF %ZLANHF %%ZLANHP
  %ZLANHP))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
                                        '(("XERBLA" "xerbla_" %%XERBLA %XERBLA)
                                          ("XERBLA_ARRAY" "xerbla_array_"
                                           %%XERBLA_ARRAY %XERBLA_ARRAY)
                                          ("ZBBCSD" "zbbcsd_" %%ZBBCSD %ZBBCSD)
                                          ("ZBDSQR" "zbdsqr_" %%ZBDSQR %ZBDSQR)
                                          ("ZCGESV" "zcgesv_" %%ZCGESV %ZCGESV)
                                          ("ZCPOSV" "zcposv_" %%ZCPOSV %ZCPOSV)
                                          ("ZDRSCL" "zdrscl_" %%ZDRSCL %ZDRSCL)
                                          ("ZGBBRD" "zgbbrd_" %%ZGBBRD %ZGBBRD)
                                          ("ZGBCON" "zgbcon_" %%ZGBCON %ZGBCON)
                                          ("ZGBEQU" "zgbequ_" %%ZGBEQU %ZGBEQU)
                                          ("ZGBEQUB" "zgbequb_" %%ZGBEQUB
                                           %ZGBEQUB)
                                          ("ZGBRFS" "zgbrfs_" %%ZGBRFS %ZGBRFS)
                                          ("ZGBRFSX" "zgbrfsx_" %%ZGBRFSX
                                           %ZGBRFSX)
                                          ("ZGBSV" "zgbsv_" %%ZGBSV %ZGBSV)
                                          ("ZGBSVX" "zgbsvx_" %%ZGBSVX %ZGBSVX)
                                          ("ZGBSVXX" "zgbsvxx_" %%ZGBSVXX
                                           %ZGBSVXX)
                                          ("ZGBTF2" "zgbtf2_" %%ZGBTF2 %ZGBTF2)
                                          ("ZGBTRF" "zgbtrf_" %%ZGBTRF %ZGBTRF)
                                          ("ZGBTRS" "zgbtrs_" %%ZGBTRS %ZGBTRS)
                                          ("ZGEBAK" "zgebak_" %%ZGEBAK %ZGEBAK)
                                          ("ZGEBAL" "zgebal_" %%ZGEBAL %ZGEBAL)
                                          ("ZGEBD2" "zgebd2_" %%ZGEBD2 %ZGEBD2)
                                          ("ZGEBRD" "zgebrd_" %%ZGEBRD %ZGEBRD)
                                          ("ZGECON" "zgecon_" %%ZGECON %ZGECON)
                                          ("ZGEEQU" "zgeequ_" %%ZGEEQU %ZGEEQU)
                                          ("ZGEEQUB" "zgeequb_" %%ZGEEQUB
                                           %ZGEEQUB)
                                          ("ZGEES" "zgees_" %%ZGEES %ZGEES)
                                          ("ZGEESX" "zgeesx_" %%ZGEESX %ZGEESX)
                                          ("ZGEEV" "zgeev_" %%ZGEEV %ZGEEV)
                                          ("ZGEEVX" "zgeevx_" %%ZGEEVX %ZGEEVX)
                                          ("ZGEHD2" "zgehd2_" %%ZGEHD2 %ZGEHD2)
                                          ("ZGEHRD" "zgehrd_" %%ZGEHRD %ZGEHRD)
                                          ("ZGEJSV" "zgejsv_" %%ZGEJSV %ZGEJSV)
                                          ("ZGELQ" "zgelq_" %%ZGELQ %ZGELQ)
                                          ("ZGELQ2" "zgelq2_" %%ZGELQ2 %ZGELQ2)
                                          ("ZGELQF" "zgelqf_" %%ZGELQF %ZGELQF)
                                          ("ZGELQT" "zgelqt_" %%ZGELQT %ZGELQT)
                                          ("ZGELQT3" "zgelqt3_" %%ZGELQT3
                                           %ZGELQT3)
                                          ("ZGELS" "zgels_" %%ZGELS %ZGELS)
                                          ("ZGELSD" "zgelsd_" %%ZGELSD %ZGELSD)
                                          ("ZGELSS" "zgelss_" %%ZGELSS %ZGELSS)
                                          ("ZGELSY" "zgelsy_" %%ZGELSY %ZGELSY)
                                          ("ZGEMLQ" "zgemlq_" %%ZGEMLQ %ZGEMLQ)
                                          ("ZGEMLQT" "zgemlqt_" %%ZGEMLQT
                                           %ZGEMLQT)
                                          ("ZGEMQR" "zgemqr_" %%ZGEMQR %ZGEMQR)
                                          ("ZGEMQRT" "zgemqrt_" %%ZGEMQRT
                                           %ZGEMQRT)
                                          ("ZGEQL2" "zgeql2_" %%ZGEQL2 %ZGEQL2)
                                          ("ZGEQLF" "zgeqlf_" %%ZGEQLF %ZGEQLF)
                                          ("ZGEQP3" "zgeqp3_" %%ZGEQP3 %ZGEQP3)
                                          ("ZGEQR" "zgeqr_" %%ZGEQR %ZGEQR)
                                          ("ZGEQR2" "zgeqr2_" %%ZGEQR2 %ZGEQR2)
                                          ("ZGEQR2P" "zgeqr2p_" %%ZGEQR2P
                                           %ZGEQR2P)
                                          ("ZGEQRF" "zgeqrf_" %%ZGEQRF %ZGEQRF)
                                          ("ZGEQRFP" "zgeqrfp_" %%ZGEQRFP
                                           %ZGEQRFP)
                                          ("ZGEQRT" "zgeqrt_" %%ZGEQRT %ZGEQRT)
                                          ("ZGEQRT2" "zgeqrt2_" %%ZGEQRT2
                                           %ZGEQRT2)
                                          ("ZGEQRT3" "zgeqrt3_" %%ZGEQRT3
                                           %ZGEQRT3)
                                          ("ZGERFS" "zgerfs_" %%ZGERFS %ZGERFS)
                                          ("ZGERFSX" "zgerfsx_" %%ZGERFSX
                                           %ZGERFSX)
                                          ("ZGERQ2" "zgerq2_" %%ZGERQ2 %ZGERQ2)
                                          ("ZGERQF" "zgerqf_" %%ZGERQF %ZGERQF)
                                          ("ZGESC2" "zgesc2_" %%ZGESC2 %ZGESC2)
                                          ("ZGESDD" "zgesdd_" %%ZGESDD %ZGESDD)
                                          ("ZGESV" "zgesv_" %%ZGESV %ZGESV)
                                          ("ZGESVD" "zgesvd_" %%ZGESVD %ZGESVD)
                                          ("ZGESVDQ" "zgesvdq_" %%ZGESVDQ
                                           %ZGESVDQ)
                                          ("ZGESVDX" "zgesvdx_" %%ZGESVDX
                                           %ZGESVDX)
                                          ("ZGESVJ" "zgesvj_" %%ZGESVJ %ZGESVJ)
                                          ("ZGESVX" "zgesvx_" %%ZGESVX %ZGESVX)
                                          ("ZGESVXX" "zgesvxx_" %%ZGESVXX
                                           %ZGESVXX)
                                          ("ZGETC2" "zgetc2_" %%ZGETC2 %ZGETC2)
                                          ("ZGETF2" "zgetf2_" %%ZGETF2 %ZGETF2)
                                          ("ZGETRF" "zgetrf_" %%ZGETRF %ZGETRF)
                                          ("ZGETRF2" "zgetrf2_" %%ZGETRF2
                                           %ZGETRF2)
                                          ("ZGETRI" "zgetri_" %%ZGETRI %ZGETRI)
                                          ("ZGETRS" "zgetrs_" %%ZGETRS %ZGETRS)
                                          ("ZGETSLS" "zgetsls_" %%ZGETSLS
                                           %ZGETSLS)
                                          ("ZGGBAK" "zggbak_" %%ZGGBAK %ZGGBAK)
                                          ("ZGGBAL" "zggbal_" %%ZGGBAL %ZGGBAL)
                                          ("ZGGES" "zgges_" %%ZGGES %ZGGES)
                                          ("ZGGES3" "zgges3_" %%ZGGES3 %ZGGES3)
                                          ("ZGGESX" "zggesx_" %%ZGGESX %ZGGESX)
                                          ("ZGGEV" "zggev_" %%ZGGEV %ZGGEV)
                                          ("ZGGEV3" "zggev3_" %%ZGGEV3 %ZGGEV3)
                                          ("ZGGEVX" "zggevx_" %%ZGGEVX %ZGGEVX)
                                          ("ZGGGLM" "zggglm_" %%ZGGGLM %ZGGGLM)
                                          ("ZGGHD3" "zgghd3_" %%ZGGHD3 %ZGGHD3)
                                          ("ZGGHRD" "zgghrd_" %%ZGGHRD %ZGGHRD)
                                          ("ZGGLSE" "zgglse_" %%ZGGLSE %ZGGLSE)
                                          ("ZGGQRF" "zggqrf_" %%ZGGQRF %ZGGQRF)
                                          ("ZGGRQF" "zggrqf_" %%ZGGRQF %ZGGRQF)
                                          ("ZGGSVD3" "zggsvd3_" %%ZGGSVD3
                                           %ZGGSVD3)
                                          ("ZGGSVP3" "zggsvp3_" %%ZGGSVP3
                                           %ZGGSVP3)
                                          ("ZGSVJ0" "zgsvj0_" %%ZGSVJ0 %ZGSVJ0)
                                          ("ZGSVJ1" "zgsvj1_" %%ZGSVJ1 %ZGSVJ1)
                                          ("ZGTCON" "zgtcon_" %%ZGTCON %ZGTCON)
                                          ("ZGTRFS" "zgtrfs_" %%ZGTRFS %ZGTRFS)
                                          ("ZGTSV" "zgtsv_" %%ZGTSV %ZGTSV)
                                          ("ZGTSVX" "zgtsvx_" %%ZGTSVX %ZGTSVX)
                                          ("ZGTTRF" "zgttrf_" %%ZGTTRF %ZGTTRF)
                                          ("ZGTTRS" "zgttrs_" %%ZGTTRS %ZGTTRS)
                                          ("ZGTTS2" "zgtts2_" %%ZGTTS2 %ZGTTS2)
                                          ("ZHB2ST_KERNELS" "zhb2st_kernels_"
                                           %%ZHB2ST_KERNELS %ZHB2ST_KERNELS)
                                          ("ZHBEV" "zhbev_" %%ZHBEV %ZHBEV)
                                          ("ZHBEV_2STAGE" "zhbev_2stage_"
                                           %%ZHBEV_2STAGE %ZHBEV_2STAGE)
                                          ("ZHBEVD" "zhbevd_" %%ZHBEVD %ZHBEVD)
                                          ("ZHBEVD_2STAGE" "zhbevd_2stage_"
                                           %%ZHBEVD_2STAGE %ZHBEVD_2STAGE)
                                          ("ZHBEVX" "zhbevx_" %%ZHBEVX %ZHBEVX)
                                          ("ZHBEVX_2STAGE" "zhbevx_2stage_"
                                           %%ZHBEVX_2STAGE %ZHBEVX_2STAGE)
                                          ("ZHBGST" "zhbgst_" %%ZHBGST %ZHBGST)
                                          ("ZHBGV" "zhbgv_" %%ZHBGV %ZHBGV)
                                          ("ZHBGVD" "zhbgvd_" %%ZHBGVD %ZHBGVD)
                                          ("ZHBGVX" "zhbgvx_" %%ZHBGVX %ZHBGVX)
                                          ("ZHBTRD" "zhbtrd_" %%ZHBTRD %ZHBTRD)
                                          ("ZHECON" "zhecon_" %%ZHECON %ZHECON)
                                          ("ZHECON_3" "zhecon_3_" %%ZHECON_3
                                           %ZHECON_3)
                                          ("ZHECON_ROOK" "zhecon_rook_"
                                           %%ZHECON_ROOK %ZHECON_ROOK)
                                          ("ZHEEQUB" "zheequb_" %%ZHEEQUB
                                           %ZHEEQUB)
                                          ("ZHEEV" "zheev_" %%ZHEEV %ZHEEV)
                                          ("ZHEEV_2STAGE" "zheev_2stage_"
                                           %%ZHEEV_2STAGE %ZHEEV_2STAGE)
                                          ("ZHEEVD" "zheevd_" %%ZHEEVD %ZHEEVD)
                                          ("ZHEEVD_2STAGE" "zheevd_2stage_"
                                           %%ZHEEVD_2STAGE %ZHEEVD_2STAGE)
                                          ("ZHEEVR" "zheevr_" %%ZHEEVR %ZHEEVR)
                                          ("ZHEEVR_2STAGE" "zheevr_2stage_"
                                           %%ZHEEVR_2STAGE %ZHEEVR_2STAGE)
                                          ("ZHEEVX" "zheevx_" %%ZHEEVX %ZHEEVX)
                                          ("ZHEEVX_2STAGE" "zheevx_2stage_"
                                           %%ZHEEVX_2STAGE %ZHEEVX_2STAGE)
                                          ("ZHEGS2" "zhegs2_" %%ZHEGS2 %ZHEGS2)
                                          ("ZHEGST" "zhegst_" %%ZHEGST %ZHEGST)
                                          ("ZHEGV" "zhegv_" %%ZHEGV %ZHEGV)
                                          ("ZHEGV_2STAGE" "zhegv_2stage_"
                                           %%ZHEGV_2STAGE %ZHEGV_2STAGE)
                                          ("ZHEGVD" "zhegvd_" %%ZHEGVD %ZHEGVD)
                                          ("ZHEGVX" "zhegvx_" %%ZHEGVX %ZHEGVX)
                                          ("ZHERFS" "zherfs_" %%ZHERFS %ZHERFS)
                                          ("ZHERFSX" "zherfsx_" %%ZHERFSX
                                           %ZHERFSX)
                                          ("ZHESV" "zhesv_" %%ZHESV %ZHESV)
                                          ("ZHESV_AA" "zhesv_aa_" %%ZHESV_AA
                                           %ZHESV_AA)
                                          ("ZHESV_AA_2STAGE" "zhesv_aa_2stage_"
                                           %%ZHESV_AA_2STAGE %ZHESV_AA_2STAGE)
                                          ("ZHESV_RK" "zhesv_rk_" %%ZHESV_RK
                                           %ZHESV_RK)
                                          ("ZHESV_ROOK" "zhesv_rook_"
                                           %%ZHESV_ROOK %ZHESV_ROOK)
                                          ("ZHESVX" "zhesvx_" %%ZHESVX %ZHESVX)
                                          ("ZHESVXX" "zhesvxx_" %%ZHESVXX
                                           %ZHESVXX)
                                          ("ZHESWAPR" "zheswapr_" %%ZHESWAPR
                                           %ZHESWAPR)
                                          ("ZHETD2" "zhetd2_" %%ZHETD2 %ZHETD2)
                                          ("ZHETF2" "zhetf2_" %%ZHETF2 %ZHETF2)
                                          ("ZHETF2_RK" "zhetf2_rk_" %%ZHETF2_RK
                                           %ZHETF2_RK)
                                          ("ZHETF2_ROOK" "zhetf2_rook_"
                                           %%ZHETF2_ROOK %ZHETF2_ROOK)
                                          ("ZHETRD" "zhetrd_" %%ZHETRD %ZHETRD)
                                          ("ZHETRD_2STAGE" "zhetrd_2stage_"
                                           %%ZHETRD_2STAGE %ZHETRD_2STAGE)
                                          ("ZHETRD_HE2HB" "zhetrd_he2hb_"
                                           %%ZHETRD_HE2HB %ZHETRD_HE2HB)
                                          ("ZHETRF" "zhetrf_" %%ZHETRF %ZHETRF)
                                          ("ZHETRF_AA" "zhetrf_aa_" %%ZHETRF_AA
                                           %ZHETRF_AA)
                                          ("ZHETRF_AA_2STAGE"
                                           "zhetrf_aa_2stage_"
                                           %%ZHETRF_AA_2STAGE
                                           %ZHETRF_AA_2STAGE)
                                          ("ZHETRF_RK" "zhetrf_rk_" %%ZHETRF_RK
                                           %ZHETRF_RK)
                                          ("ZHETRF_ROOK" "zhetrf_rook_"
                                           %%ZHETRF_ROOK %ZHETRF_ROOK)
                                          ("ZHETRI" "zhetri_" %%ZHETRI %ZHETRI)
                                          ("ZHETRI2" "zhetri2_" %%ZHETRI2
                                           %ZHETRI2)
                                          ("ZHETRI2X" "zhetri2x_" %%ZHETRI2X
                                           %ZHETRI2X)
                                          ("ZHETRI_3" "zhetri_3_" %%ZHETRI_3
                                           %ZHETRI_3)
                                          ("ZHETRI_3X" "zhetri_3x_" %%ZHETRI_3X
                                           %ZHETRI_3X)
                                          ("ZHETRI_ROOK" "zhetri_rook_"
                                           %%ZHETRI_ROOK %ZHETRI_ROOK)
                                          ("ZHETRS" "zhetrs_" %%ZHETRS %ZHETRS)
                                          ("ZHETRS2" "zhetrs2_" %%ZHETRS2
                                           %ZHETRS2)
                                          ("ZHETRS_3" "zhetrs_3_" %%ZHETRS_3
                                           %ZHETRS_3)
                                          ("ZHETRS_AA" "zhetrs_aa_" %%ZHETRS_AA
                                           %ZHETRS_AA)
                                          ("ZHETRS_AA_2STAGE"
                                           "zhetrs_aa_2stage_"
                                           %%ZHETRS_AA_2STAGE
                                           %ZHETRS_AA_2STAGE)
                                          ("ZHETRS_ROOK" "zhetrs_rook_"
                                           %%ZHETRS_ROOK %ZHETRS_ROOK)
                                          ("ZHFRK" "zhfrk_" %%ZHFRK %ZHFRK)
                                          ("ZHGEQZ" "zhgeqz_" %%ZHGEQZ %ZHGEQZ)
                                          ("ZHPCON" "zhpcon_" %%ZHPCON %ZHPCON)
                                          ("ZHPEV" "zhpev_" %%ZHPEV %ZHPEV)
                                          ("ZHPEVD" "zhpevd_" %%ZHPEVD %ZHPEVD)
                                          ("ZHPEVX" "zhpevx_" %%ZHPEVX %ZHPEVX)
                                          ("ZHPGST" "zhpgst_" %%ZHPGST %ZHPGST)
                                          ("ZHPGV" "zhpgv_" %%ZHPGV %ZHPGV)
                                          ("ZHPGVD" "zhpgvd_" %%ZHPGVD %ZHPGVD)
                                          ("ZHPGVX" "zhpgvx_" %%ZHPGVX %ZHPGVX)
                                          ("ZHPRFS" "zhprfs_" %%ZHPRFS %ZHPRFS)
                                          ("ZHPSV" "zhpsv_" %%ZHPSV %ZHPSV)
                                          ("ZHPSVX" "zhpsvx_" %%ZHPSVX %ZHPSVX)
                                          ("ZHPTRD" "zhptrd_" %%ZHPTRD %ZHPTRD)
                                          ("ZHPTRF" "zhptrf_" %%ZHPTRF %ZHPTRF)
                                          ("ZHPTRI" "zhptri_" %%ZHPTRI %ZHPTRI)
                                          ("ZHPTRS" "zhptrs_" %%ZHPTRS %ZHPTRS)
                                          ("ZHSEIN" "zhsein_" %%ZHSEIN %ZHSEIN)
                                          ("ZHSEQR" "zhseqr_" %%ZHSEQR %ZHSEQR)
                                          ("ZLA_GBAMV" "zla_gbamv_" %%ZLA_GBAMV
                                           %ZLA_GBAMV)
                                          ("ZLA_GBRCOND_C" "zla_gbrcond_c_"
                                           %%ZLA_GBRCOND_C %ZLA_GBRCOND_C)
                                          ("ZLA_GBRCOND_X" "zla_gbrcond_x_"
                                           %%ZLA_GBRCOND_X %ZLA_GBRCOND_X)
                                          ("ZLA_GBRFSX_EXTENDED"
                                           "zla_gbrfsx_extended_"
                                           %%ZLA_GBRFSX_EXTENDED
                                           %ZLA_GBRFSX_EXTENDED)
                                          ("ZLA_GBRPVGRW" "zla_gbrpvgrw_"
                                           %%ZLA_GBRPVGRW %ZLA_GBRPVGRW)
                                          ("ZLA_GEAMV" "zla_geamv_" %%ZLA_GEAMV
                                           %ZLA_GEAMV)
                                          ("ZLA_GERCOND_C" "zla_gercond_c_"
                                           %%ZLA_GERCOND_C %ZLA_GERCOND_C)
                                          ("ZLA_GERCOND_X" "zla_gercond_x_"
                                           %%ZLA_GERCOND_X %ZLA_GERCOND_X)
                                          ("ZLA_GERFSX_EXTENDED"
                                           "zla_gerfsx_extended_"
                                           %%ZLA_GERFSX_EXTENDED
                                           %ZLA_GERFSX_EXTENDED)
                                          ("ZLA_GERPVGRW" "zla_gerpvgrw_"
                                           %%ZLA_GERPVGRW %ZLA_GERPVGRW)
                                          ("ZLA_HEAMV" "zla_heamv_" %%ZLA_HEAMV
                                           %ZLA_HEAMV)
                                          ("ZLA_HERCOND_C" "zla_hercond_c_"
                                           %%ZLA_HERCOND_C %ZLA_HERCOND_C)
                                          ("ZLA_HERCOND_X" "zla_hercond_x_"
                                           %%ZLA_HERCOND_X %ZLA_HERCOND_X)
                                          ("ZLA_HERFSX_EXTENDED"
                                           "zla_herfsx_extended_"
                                           %%ZLA_HERFSX_EXTENDED
                                           %ZLA_HERFSX_EXTENDED)
                                          ("ZLA_HERPVGRW" "zla_herpvgrw_"
                                           %%ZLA_HERPVGRW %ZLA_HERPVGRW)
                                          ("ZLA_LIN_BERR" "zla_lin_berr_"
                                           %%ZLA_LIN_BERR %ZLA_LIN_BERR)
                                          ("ZLA_PORCOND_C" "zla_porcond_c_"
                                           %%ZLA_PORCOND_C %ZLA_PORCOND_C)
                                          ("ZLA_PORCOND_X" "zla_porcond_x_"
                                           %%ZLA_PORCOND_X %ZLA_PORCOND_X)
                                          ("ZLA_PORFSX_EXTENDED"
                                           "zla_porfsx_extended_"
                                           %%ZLA_PORFSX_EXTENDED
                                           %ZLA_PORFSX_EXTENDED)
                                          ("ZLA_PORPVGRW" "zla_porpvgrw_"
                                           %%ZLA_PORPVGRW %ZLA_PORPVGRW)
                                          ("ZLA_SYAMV" "zla_syamv_" %%ZLA_SYAMV
                                           %ZLA_SYAMV)
                                          ("ZLA_SYRCOND_C" "zla_syrcond_c_"
                                           %%ZLA_SYRCOND_C %ZLA_SYRCOND_C)
                                          ("ZLA_SYRCOND_X" "zla_syrcond_x_"
                                           %%ZLA_SYRCOND_X %ZLA_SYRCOND_X)
                                          ("ZLA_SYRFSX_EXTENDED"
                                           "zla_syrfsx_extended_"
                                           %%ZLA_SYRFSX_EXTENDED
                                           %ZLA_SYRFSX_EXTENDED)
                                          ("ZLA_SYRPVGRW" "zla_syrpvgrw_"
                                           %%ZLA_SYRPVGRW %ZLA_SYRPVGRW)
                                          ("ZLA_WWADDW" "zla_wwaddw_"
                                           %%ZLA_WWADDW %ZLA_WWADDW)
                                          ("ZLABRD" "zlabrd_" %%ZLABRD %ZLABRD)
                                          ("ZLACGV" "zlacgv_" %%ZLACGV %ZLACGV)
                                          ("ZLACN2" "zlacn2_" %%ZLACN2 %ZLACN2)
                                          ("ZLACON" "zlacon_" %%ZLACON %ZLACON)
                                          ("ZLACP2" "zlacp2_" %%ZLACP2 %ZLACP2)
                                          ("ZLACPY" "zlacpy_" %%ZLACPY %ZLACPY)
                                          ("ZLACRM" "zlacrm_" %%ZLACRM %ZLACRM)
                                          ("ZLACRT" "zlacrt_" %%ZLACRT %ZLACRT)
                                          ("ZLADIV" "zladiv_" %%ZLADIV %ZLADIV)
                                          ("ZLAED0" "zlaed0_" %%ZLAED0 %ZLAED0)
                                          ("ZLAED7" "zlaed7_" %%ZLAED7 %ZLAED7)
                                          ("ZLAED8" "zlaed8_" %%ZLAED8 %ZLAED8)
                                          ("ZLAEIN" "zlaein_" %%ZLAEIN %ZLAEIN)
                                          ("ZLAESY" "zlaesy_" %%ZLAESY %ZLAESY)
                                          ("ZLAEV2" "zlaev2_" %%ZLAEV2 %ZLAEV2)
                                          ("ZLAG2C" "zlag2c_" %%ZLAG2C %ZLAG2C)
                                          ("ZLAGS2" "zlags2_" %%ZLAGS2 %ZLAGS2)
                                          ("ZLAGTM" "zlagtm_" %%ZLAGTM %ZLAGTM)
                                          ("ZLAHEF" "zlahef_" %%ZLAHEF %ZLAHEF)
                                          ("ZLAHEF_AA" "zlahef_aa_" %%ZLAHEF_AA
                                           %ZLAHEF_AA)
                                          ("ZLAHEF_RK" "zlahef_rk_" %%ZLAHEF_RK
                                           %ZLAHEF_RK)
                                          ("ZLAHEF_ROOK" "zlahef_rook_"
                                           %%ZLAHEF_ROOK %ZLAHEF_ROOK)
                                          ("ZLAHQR" "zlahqr_" %%ZLAHQR %ZLAHQR)
                                          ("ZLAHR2" "zlahr2_" %%ZLAHR2 %ZLAHR2)
                                          ("ZLAIC1" "zlaic1_" %%ZLAIC1 %ZLAIC1)
                                          ("ZLALS0" "zlals0_" %%ZLALS0 %ZLALS0)
                                          ("ZLALSA" "zlalsa_" %%ZLALSA %ZLALSA)
                                          ("ZLALSD" "zlalsd_" %%ZLALSD %ZLALSD)
                                          ("ZLAMSWLQ" "zlamswlq_" %%ZLAMSWLQ
                                           %ZLAMSWLQ)
                                          ("ZLAMTSQR" "zlamtsqr_" %%ZLAMTSQR
                                           %ZLAMTSQR)
                                          ("ZLANGB" "zlangb_" %%ZLANGB %ZLANGB)
                                          ("ZLANGE" "zlange_" %%ZLANGE %ZLANGE)
                                          ("ZLANGT" "zlangt_" %%ZLANGT %ZLANGT)
                                          ("ZLANHB" "zlanhb_" %%ZLANHB %ZLANHB)
                                          ("ZLANHE" "zlanhe_" %%ZLANHE %ZLANHE)
                                          ("ZLANHF" "zlanhf_" %%ZLANHF %ZLANHF)
                                          ("ZLANHP" "zlanhp_" %%ZLANHP
                                           %ZLANHP)))

(COMMON-LISP:EXPORT
 '(%XERBLA %XERBLA_ARRAY %ZBBCSD %ZBDSQR %ZCGESV %ZCPOSV %ZDRSCL %ZGBBRD
   %ZGBCON %ZGBEQU %ZGBEQUB %ZGBRFS %ZGBRFSX %ZGBSV %ZGBSVX %ZGBSVXX %ZGBTF2
   %ZGBTRF %ZGBTRS %ZGEBAK %ZGEBAL %ZGEBD2 %ZGEBRD %ZGECON %ZGEEQU %ZGEEQUB
   %ZGEES %ZGEESX %ZGEEV %ZGEEVX %ZGEHD2 %ZGEHRD %ZGEJSV %ZGELQ %ZGELQ2 %ZGELQF
   %ZGELQT %ZGELQT3 %ZGELS %ZGELSD %ZGELSS %ZGELSY %ZGEMLQ %ZGEMLQT %ZGEMQR
   %ZGEMQRT %ZGEQL2 %ZGEQLF %ZGEQP3 %ZGEQR %ZGEQR2 %ZGEQR2P %ZGEQRF %ZGEQRFP
   %ZGEQRT %ZGEQRT2 %ZGEQRT3 %ZGERFS %ZGERFSX %ZGERQ2 %ZGERQF %ZGESC2 %ZGESDD
   %ZGESV %ZGESVD %ZGESVDQ %ZGESVDX %ZGESVJ %ZGESVX %ZGESVXX %ZGETC2 %ZGETF2
   %ZGETRF %ZGETRF2 %ZGETRI %ZGETRS %ZGETSLS %ZGGBAK %ZGGBAL %ZGGES %ZGGES3
   %ZGGESX %ZGGEV %ZGGEV3 %ZGGEVX %ZGGGLM %ZGGHD3 %ZGGHRD %ZGGLSE %ZGGQRF
   %ZGGRQF %ZGGSVD3 %ZGGSVP3 %ZGSVJ0 %ZGSVJ1 %ZGTCON %ZGTRFS %ZGTSV %ZGTSVX
   %ZGTTRF %ZGTTRS %ZGTTS2 %ZHB2ST_KERNELS %ZHBEV %ZHBEV_2STAGE %ZHBEVD
   %ZHBEVD_2STAGE %ZHBEVX %ZHBEVX_2STAGE %ZHBGST %ZHBGV %ZHBGVD %ZHBGVX %ZHBTRD
   %ZHECON %ZHECON_3 %ZHECON_ROOK %ZHEEQUB %ZHEEV %ZHEEV_2STAGE %ZHEEVD
   %ZHEEVD_2STAGE %ZHEEVR %ZHEEVR_2STAGE %ZHEEVX %ZHEEVX_2STAGE %ZHEGS2 %ZHEGST
   %ZHEGV %ZHEGV_2STAGE %ZHEGVD %ZHEGVX %ZHERFS %ZHERFSX %ZHESV %ZHESV_AA
   %ZHESV_AA_2STAGE %ZHESV_RK %ZHESV_ROOK %ZHESVX %ZHESVXX %ZHESWAPR %ZHETD2
   %ZHETF2 %ZHETF2_RK %ZHETF2_ROOK %ZHETRD %ZHETRD_2STAGE %ZHETRD_HE2HB %ZHETRF
   %ZHETRF_AA %ZHETRF_AA_2STAGE %ZHETRF_RK %ZHETRF_ROOK %ZHETRI %ZHETRI2
   %ZHETRI2X %ZHETRI_3 %ZHETRI_3X %ZHETRI_ROOK %ZHETRS %ZHETRS2 %ZHETRS_3
   %ZHETRS_AA %ZHETRS_AA_2STAGE %ZHETRS_ROOK %ZHFRK %ZHGEQZ %ZHPCON %ZHPEV
   %ZHPEVD %ZHPEVX %ZHPGST %ZHPGV %ZHPGVD %ZHPGVX %ZHPRFS %ZHPSV %ZHPSVX
   %ZHPTRD %ZHPTRF %ZHPTRI %ZHPTRS %ZHSEIN %ZHSEQR %ZLA_GBAMV %ZLA_GBRCOND_C
   %ZLA_GBRCOND_X %ZLA_GBRFSX_EXTENDED %ZLA_GBRPVGRW %ZLA_GEAMV %ZLA_GERCOND_C
   %ZLA_GERCOND_X %ZLA_GERFSX_EXTENDED %ZLA_GERPVGRW %ZLA_HEAMV %ZLA_HERCOND_C
   %ZLA_HERCOND_X %ZLA_HERFSX_EXTENDED %ZLA_HERPVGRW %ZLA_LIN_BERR
   %ZLA_PORCOND_C %ZLA_PORCOND_X %ZLA_PORFSX_EXTENDED %ZLA_PORPVGRW %ZLA_SYAMV
   %ZLA_SYRCOND_C %ZLA_SYRCOND_X %ZLA_SYRFSX_EXTENDED %ZLA_SYRPVGRW %ZLA_WWADDW
   %ZLABRD %ZLACGV %ZLACN2 %ZLACON %ZLACP2 %ZLACPY %ZLACRM %ZLACRT %ZLADIV
   %ZLAED0 %ZLAED7 %ZLAED8 %ZLAEIN %ZLAESY %ZLAEV2 %ZLAG2C %ZLAGS2 %ZLAGTM
   %ZLAHEF %ZLAHEF_AA %ZLAHEF_RK %ZLAHEF_ROOK %ZLAHQR %ZLAHR2 %ZLAIC1 %ZLALS0
   %ZLALSA %ZLALSD %ZLAMSWLQ %ZLAMTSQR %ZLANGB %ZLANGE %ZLANGT %ZLANHB %ZLANHE
   %ZLANHF %ZLANHP)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
